SAĞ TIK MENÜ OLUŞTURMA VE KULLANMA

Описание: Kod Açıklamada
Merhaba arkadaşlar! Bu videoda, kendi Excel Userform'larınızda Sağ Tık Menüsü oluşturmayı ve bu menüye ikonlar ekleyerek nasıl kullanabileceğinizi adım adım göstereceğim. Excel VBA kullanarak bu özelliği nasıl uygulayacağınızı öğrenmek için videomuzu izleyin ve kendi projelerinizde bu pratik bilgiyi kullanarak kullanıcı dostu arayüzler oluşturun!

Videonun İçeriği:

1 Sağ Tık Menüsü Oluşturma Adımları
2 Menü Elemanlarına İkon Ekleme
3 Sağ Tık Menüsünü Kullanma ve İşlevler Ekleme
4 Kullanıcı Dostu ve Etkili Arayüzler Oluşturma

Kanalıma abone olmayı ve videomu beğenmeyi unutmayın! Yorumlarda sorularınızı ve geri bildiriminizi paylaşarak bana katkı sağlayabilirsiniz. Teşekkürler!

Yazdığım Programlar Hoşunuza Giderse veya Kendiniz İçin Özel Program Yazdırmak İsterseniz Benimle İletişime Geçebilirsiniz.

UserForm'a Yazılacaklar

' #### En Üste
Const menuName As String = "tempMenu"
' =========================================================
Sub deleteMenu()
On Error Resume Next
CommandBars(menuName).Delete
On Error GoTo 0
End Sub
'______________________________________________________________________
Sub PopRightClickMenu()

deleteMenu

With CommandBars.Add(menuName, msoBarPopup)

With .Controls.Add(msoControlButton)
.OnAction = "tbox_Yeni"
.Caption = "Yeni Ekle"
.FaceId = 18
End With

With .Controls.Add(msoControlButton)
.OnAction = "tbox_Giris"
.Caption = "Kasa Giriş"
.FaceId = 137
End With

With .Controls.Add(msoControlButton)
.OnAction = "tbox_Cikis"
.Caption = "Kasa Çıkış"
.FaceId = 138
End With

With .Controls.Add(msoControlButton)
.OnAction = "tbox_AnaMenu"
.Caption = "Çıkış"
.FaceId = 840
End With

.ShowPopup

End With

deleteMenu

End Sub
'__________________________________________________________________
Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
If Button = 2 Then
Set txtObj = frmKasalar.ListBox1
PopRightClickMenu
End If
End Sub
'______________________________________________________________________
Private Sub ListBox2_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
If Button = 2 Then
Set txtObj = frmKasalar.ListBox2
PopRightClickMenu
End If
End Sub

Private Sub UserForm_Terminate()
Set txtObj = Nothing
End Sub
'______________________________________________________________________
'#### Modul İçine
Public txtObj As MSForms.ListBox

Public Sub tbox_Yeni()
frmKasaYeni.Show
End Sub
'______________________________________________________________________
Public Sub tbox_Giris()

frmKasaGiris.Show
End Sub
'______________________________________________________________________
Public Sub tbox_Cikis()
frmKasaCikis.Show
End Sub
'______________________________________________________________________
Public Sub tbox_AnaMenu()
Unload frmKasalar
End Sub
'______________________________________________________________________
Ücretsiz Programların da Yer Aldığı Onatma Listesi
► Program Tanıtımları :    • Program Tanıtımları  
► VBA Eğitim Videoları :    • VBA Eğitim Videoları  
► Excel Eğitim Videoları :    • EXCEL Eğitim Videoları  

Video işinize yaradıysa desteğinizi göstermek adına beğenmeyi ve kanala abone olmayı unutmayın. Yeni yükleyeceğim videolarımdan haberdar olmak için bildirimleri açınız.

Mail ( Contact ) - [email protected]