UserForm'da TitleBar'in gizlenmesi

[TheGreatest]

Arkadaslar, Ekteki ornekte bulunan makro ile UserForm'un TitleBar'ini gizliyorum. Makro, Office 2000'de calisiyor ama dosyayi Office XP'de acinca TitleBar gorunuyor. Sizce sorun nedir acaba?

Saygilar

 

[Haluk]

Merhaba;

Kodlarınızda :

[vb:1:62a4f41827] If Application.Version < "9.0" Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
[/vb:1:62a4f41827]

yukarıdaki satırlarda UserForm'un Caption özelliğine referans veriyorsunuz ama, hazırlamış olduğunuz formda bu özellik boş. Belki bundan olabilir. Buna herhangibir metin girin ve daha sonra tekrar deneyin.

Eğer yine olmazsa bir de bu şekilde deneyin;

[vb:1:62a4f41827]Private Declare Function FindWindowA Lib "user32" _
(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 hwnd As Long, FormStyle As Long
Me.Caption = "Temp"
hwnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLong hwnd, GWL_STYLE, GetWindowLong(hwnd, GWL_STYLE) And Not WS_BORDER
DrawMenuBar hwnd
End Sub
Private Sub buttexit_Click()
Unload Me
End Sub
[/vb:1:62a4f41827]

 

[TheGreatest]

Sayin Raider,

Ornekteki UserForm'u sizin verdiginiz kodlarla tekrar duzenledim ve sorunsuz calisti. Ellerinize saglik.

Saygilar