userformda çıkan çarpı işaretini inaktif etmek

[hikmet]

Userformda doğal olarak çıkan (X) işaretini inaktif etme imkanı varmı. Formdaki microsoftun çarpı işaretini inaktif ederek kapat butonunun kullanılmasını istiyorum. Bu konuda yardım edebilirmisiniz.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

http://www.excel.web.tr/viewtopic.php?t=3665&highlight=userformun

 

[Ali]

Aşağıdaki kodları kullanın
Private Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32" _
Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" _
Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long

Const GWL_STYLE = -16
Const WS_SYSMENU = &H80000

Private Sub UserForm_Initialize()

Dim hWnd As Long, lStyle As Long

If Val(Application.Version) >= 9 Then
hWnd = FindWindow("ThunderDFrame", Me.Caption)
Else
hWnd = FindWindow("ThunderXFrame", Me.Caption)
End If


lStyle = GetWindowLong(hWnd, GWL_STYLE)


lStyle = (lStyle And Not WS_SYSMENU)


SetWindowLong hWnd, GWL_STYLE, lStyle

End Sub

 

[hikmet]

yardımlarınız için teşekkür ederim. Aradığım kodlar bunlardı.Tekrar teşekkür ederim.