Skip to main content

AccessTr.neT


Toolbar nesnesine resim ekleme

Toolbar nesnesine resim ekleme

#1
Öncelikle UserFrom'a Toolbar ekleyoruz

[Resim: 13314138131.png]

Sonra imagelist ekliyoruz.
İmagelistin properties penceresinden custom özelliğine girip oradan bir ikon ekleyelim.
[Resim: 13314138132.png]
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.
[Resim: 13314138721.png]
Kolay gelsin...DUAYEN.
Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Toolbar nesnesine resim ekleme - Yazar: DUAYEN - 10/03/2012, 23:53
Cvp: Toolbar nesnesine resim ekleme - Yazar: boolean_ - 11/03/2012, 01:32
Cvp: Toolbar nesnesine resim ekleme - Yazar: benremix - 11/03/2012, 07:03
Cvp: Toolbar nesnesine resim ekleme - Yazar: ozanakkaya - 11/03/2012, 07:34
Cvp: Toolbar nesnesine resim ekleme - Yazar: Coskun0559 - 12/03/2012, 10:25
Task