formun X kapatma butonunun yanına farklı buton ekleme

[blak eagle]

Arkadaşlar Slm

Öncelikle yeni site hayırlı olsun. İnşaallah çok daha güzel sonuçlar olacak bir site olur. (Eskisinden çok memnundum)
Benim sorum şu;
Formun kapatma butonunun yanına farklı buton eklemek istiyorum (Butonun işlev komutlarını benim yazacağım iconu olan üzerinde gelince açıklama yazan bir kaç buton) Bunu nasıl yapabilirim. Yardımcı olurmusunuz.

[erseldemirel]

Merhaba. X butonu iptal edemessiniz. Ama gizleyebilirsiniz. Çalışmasına engel olabilirsiniz. Userform alanına ekleyeceğiniz butonlar ile sağ üst köşeye ekleyip işlev yapabilirsiniz. Aşağıdaki kodu userform içerisinde çalıştırırsanız X butonu gözükmez.


Private Const GWL_STYLE = -16
Private Const WS_CAPTION = &HC00000
Private Const WS_SYSMENU = &H80000
#If VBA7 Then
Private Declare PtrSafe Function GetWindowLong _
Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare PtrSafe Function SetWindowLong _
Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare PtrSafe Function FindWindowA _
Lib "user32" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare PtrSafe Function DrawMenuBar _
Lib "user32" (ByVal hWnd As Long) As Long
#Else
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
Private Declare Function FindWindowA _
Lib "user32" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function DrawMenuBar _
Lib "user32" (ByVal hWnd As Long) As Long
#End If
Public Sub SystemButtonSettings(frm As Object, show As Boolean)
Dim windowStyle As Long
Dim windowHandle As Long

windowHandle = FindWindowA(vbNullString, frm.Caption)
windowStyle = GetWindowLong(windowHandle, GWL_STYLE)

If show = False Then

SetWindowLong windowHandle, GWL_STYLE, (windowStyle And Not WS_SYSMENU)

Else

SetWindowLong windowHandle, GWL_STYLE, (windowStyle + WS_SYSMENU)

End If

DrawMenuBar (windowHandle)

End Sub
Private Sub UserForm_Initialize()
Call SystemButtonSettings(Me, False)
End Sub

[GuardofDeath17]

Eklediğim dosyada aradığını bulursun. Saati 3 ettim