BorderStyle özelligi

[abdulkadir1976]

Merhaba Arkadaşlar

UserForm1.BorderStyle = fmBorderStyleNone

ayarladım ama
kapat butonundan ve formun çerçevelerinden kurtulamadım

delphide ki gibi formu cercevesiz Açabiliyormuyuz.

sevgiler..

 

[Levent Menteşoğlu]

VB editöründe userformun properties penceresinden borderstyle özelliğini 0-fmBorderStyleNone olarak ayarlamanız yeterlidir.

 

[abdulkadir1976]

dediginizi zaten yapmıstım ama istedigim bu degildi

aradıgımı buldum

 Başlık çubuğu olmayan bir UserForm istermisiniz ?

O zaman aşağıdaki satırları, VBE'de yaratacağınız yeni bir UserForm modülüne yerleştirin ve UserForm'u çalıştırın...
(UserForm'u kapatmak için, form üzerinde çift klik yapın!)

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long

Private Const WS_BORDER = &H800000
Private Const GWL_STYLE = (-16)

Private Sub UserForm_Activate()
Dim lngFormHwnd As Long, lngFormStyle As Long
Me.BorderStyle = fmBorderStyleNone
If Application.Version < 9 Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngFormStyle = GetWindowLong(lngFormHwnd, GWL_STYLE)
lngFormStyle = lngFormStyle And Not WS_BORDER
SetWindowLong lngFormHwnd, GWL_STYLE, lngFormStyle
DrawMenuBar lngFormHwnd
End Sub

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Unload Me
End Sub

daha kolay yolunu bulana kadar bu yeterli.
tesekkür ederim.
sevgiler.