userform ve excel sayfada "X" kapatma işareti

[mustafa7691]

sevgili dostlar "x" ile kapatmayı user form ve excel sayfadan görsel ve işlevsel olarak yok edermiyiz ve tabi oluyorsa kodu ve nereye yazmam gerektiği konusunda beni aydınlatırmısınız.saygılarımla

 

[xxrt]

Bu kodları Userformu çift tılayarak yapıştırı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

Kapatmak içinde bir butona çıkış kodu olarak Unload me yazınız..

 

[mustafa7691]

teşekkür ederim emeğinize sağlık kapatma kodlarını biliyordum ama bunu becerememiştim saygılarımla

 

[iaydin20]

merhaba;
arkadaşlar yukardaki kod üstteki çubuğu komple siliyor sadece "x" işaretini kaldırmak ve simge durumuna küçült işareti eklemek için için nasıl bir kod yazmamız gerekiyor şimdiden teşekkürler...