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
#2
Paylaşım ve anlatım için teşekkürler.
Cevapla
#3
Paylaşım ve anlatım için teşekkürler.

Saygılar.....
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi


Cevapla
#4
Teşekkürler.
Cevapla
#5
teşekkürler
GERİ SAYIM;Sen doğduğunda başladı ! Eğer (9) canlı bile olsaydın en fazla (8) kez kaçabilirdin Ölümden ! Bil ki (7) Düvele sultan dahi olsan yerin (6) Mekan olacak sana. En fazla (5) Metre kumaş götürebileceksin ! Kapatacaksın (4) açsanda gözlerini ! Bu (3) günlük fani dünyada Azraile (2) kat olup yalvarsanda nafile EceL geldiğinde (1) gün öleceksin ! İşte, o an herşey (0) dan başlayacak. Çünkü,
ÖLÜM BİR YOK OLUŞ DEĞİL,YENİDEN DOĞUŞTUR !
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task