Toolbar nesnesine resim ekleme

[ASMET67]

Toolbar nesnesinin Menulerine ve alt menulerine nasıl resim ekleyebilirim.

 

[Mahmut Bayram]

Üst menüye eklenir de alt menüye eklenemez kanaatindeyim.

 

[Mahmut Bayram]

Ö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.

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

Bu da eklenmiş hali