Toolbar da sorunum var yardım edermisiniz?

[mustafakayiran]

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
ekdeki dosyayı incelermisiniz lütfen Toolbar1 bir türlü olmuyor
başka bir örnek dosyadan aldım ancak olmadı
acaba başka biryerden kopyaladığım içinmi olmuyor
özelbirşey yapmam gereklimi?
teşekkürler

 

[xxrt]

Toolbar Menü Hazırlamak

Çalışmanızı tam inceliyemedim.İsterseniz sil baştan yapın..

Ek Kontrollar içerisinden Microsoft ToolBar Control 6.0 veya versiyonu sizde olanı.. seçip UserForma yerleştiriyoruz.
Properties'deki custom sekmesinden butonları istediğiniz gibi ekleyip adlandırıyoruz.

1.Resim'de işaretli yeri UserFormun Initialize olayına yazarakda halledebilirsiniz.

Private Sub UserForm_Initialize()
Toolbar1.TextAlignment = tbrTextAlignRight
Toolbar1.Style = tbrFlat
End Sub

Buton Eklemesini bitirdikten sonra;

Boş Bir Modül sayfasına

Sub Makro1()
MsgBox "Yeni Menüsüne Ait Makro Çalıştı"
End Sub
Sub Makro2()
MsgBox "Kaydet Menüsüne Ait Makro Çalıştı"
End Sub

Yazıyoruz..
UserFormda Toolbar'a çift tıklatarak..

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Application.Run "makro1"
Case 2
Application.Run "makro2"
'İsteğe göre arttırabilir..
End Select
End Sub

Yazıyoruz..
Çalıştırdığımızda makro1 ve makro2'ler çalışacaktır.
2 Menü'ye ait örnek verdim.
Siz kendi çalışmanıza alt menüleri deniyerek yapabilirsiniz..
Kolay Gelsin..

 

[mustafakayiran]

sayın xxrt teşekkür ederim
eklemek yeterli oldu
iyi çalışmalar