AccessTr.neT

Öncelikle UserFrom'a Toolbar ekleyoruz



Sonra imagelist ekliyoruz.
İmagelistin properties penceresinden custom özelliğine girip oradan bir ikon ekleyelim.

Sonrada bu 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ş halidir.

Kolay gelsin...DUAYEN.

Paylaşım ve anlatım için teşekkürler.

Paylaşım ve anlatım için teşekkürler.

Saygılar.....

Teşekkürler.

teşekkürler