SAĞ TIK MENÜ OLUŞTURMA VE KULLANMA скачать в хорошем качестве

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 ) - bilgekazaz@gmail.com