Selamlar saygılar.
Şuanda Aşağıda verdiğim kodlar iie başlıksız(x kapatma bölümü) olarak userformlarımı kullanıyorum.
kod1(userform kod bölümü):
Private Sub UserForm_Activate()
Dim lngFormHwnd As Long
Dim lngFormStyle As Long
If Application.Version < 9 Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngFormStyle = GetWindowLong(lngFormHwnd, (-16))
lngFormStyle = lngFormStyle And Not &H800000
SetWindowLong lngFormHwnd, (-16), lngFormStyle
DrawMenuBar lngFormHwnd
End Sub
kod2(ayrı bir modüle)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Ancak bu şekilde başlıksız olmasına karşın, userformun etrafında ince çerçeveler bulunmakta, bunların tamamen kaldırılması ihtimali varmıdır.
Yabancı excel forumlarında da araştırma yaptım ancak yaptığım denemelerin hiç birinde başarılı olamadım.
Şuanda Aşağıda verdiğim kodlar iie başlıksız(x kapatma bölümü) olarak userformlarımı kullanıyorum.
kod1(userform kod bölümü):
Private Sub UserForm_Activate()
Dim lngFormHwnd As Long
Dim lngFormStyle As Long
If Application.Version < 9 Then
lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
Else
lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
End If
lngFormStyle = GetWindowLong(lngFormHwnd, (-16))
lngFormStyle = lngFormStyle And Not &H800000
SetWindowLong lngFormHwnd, (-16), lngFormStyle
DrawMenuBar lngFormHwnd
End Sub
kod2(ayrı bir modüle)
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Ancak bu şekilde başlıksız olmasına karşın, userformun etrafında ince çerçeveler bulunmakta, bunların tamamen kaldırılması ihtimali varmıdır.
Yabancı excel forumlarında da araştırma yaptım ancak yaptığım denemelerin hiç birinde başarılı olamadım.
