formun X kapatma butonunun yanına farklı buton ekleme

UserForm TextBox CommandButton
ComboBox ListBox CheckBox
OptionButton İmage Label
Frame ToggleButton MultiPage
VBE Penceresi ScrollBar SpinButton
TreeView ListView ToolBar
StatusBar ProgressBar SpreadSheet
MsgBox
Cevapla
blak eagle
Mesajlar: 1
Kayıt: Prş Tem 20, 2023 3:00 am
Lokasyon: İstanbul
Meslek: Mali Müşavir
Adınız: Eyüp
Soyadınız: Kömbe

formun X kapatma butonunun yanına farklı buton ekleme

Mesaj gönderen 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
Mesajlar: 95
Kayıt: Cmt Haz 24, 2023 12:23 am
Web Sitesi: https://erseldemirel.com.tr/
Adınız: Ersel
Soyadınız: Demirel

Re: formun X kapatma butonunun yanına farklı buton ekleme

Mesaj gönderen 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
Mesajlar: 5
Kayıt: Pzr Şub 18, 2024 12:05 am
Adınız: Erol
Soyadınız: PEHLIVANOGLU

Re: formun X kapatma butonunun yanına farklı buton ekleme

Mesaj gönderen GuardofDeath17 »

Eklediğim dosyada aradığını bulursun. Saati 3 ettim :D
Bu mesaja eklenen dosyaları görüntülemek için gerekli izinlere sahip değilsiniz.
Cevapla
  • Benzer Konular
    Cevaplar
    Görüntüleme
    Son mesaj