Öncelikle forma Toolbar ekleyin.
Sonra imagelist ekleyin.
İmagelistin properties penceresinden custom özelliğine girin oradan bir ikon ekleyin.
Resme bakarsanız ve aynısını uygularsınız mantığını anlayacaksınız.
En sonunda aşağıdaki kodları forma yapıştırın.
Kod:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Tag
Case Is = "1"
Call kod1
End Select
End Sub
Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
Select Case ButtonMenu.Tag
Case Is = "1"
Call kod2
End Select
End Sub
Sub kod1()
MsgBox "1. kod çalıştı"
End Sub
Sub kod2()
MsgBox "Alt menü çalıştı"
End Sub
Private Sub UserForm_Activate()
With Toolbar1 'Toolbarın imagelistine imagelist1 e yüklenen 1. ikon ekleniyor
.ImageList = ImageList1
.Buttons(1).Image = 1
'.Buttons(2).Image = 2 'varsa 2. ikon
End With
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.