ARAÇ ÇUBUĞU OLUŞTURMA

Dim t As Integer

Private Sub Form_Load()

Toolbar1.Buttons.Add 1, , "yıldırım", 1

Toolbar1.Buttons.Add 2, , "osman", 5 'açılır kapalı menü eklemek için 5 yazdık

Toolbar1.Buttons.Add 3, , "matematik", 1

Toolbar1.Buttons(2).ButtonMenus.Add 1, , "İlk menü seçeneği"  'osman menüsüne alt menü eklemek için

Toolbar1.Buttons(2).ButtonMenus.Add 2, , "İkinci menü seçeneği"

Toolbar1.Buttons(2).ButtonMenus.Add 3, , "Üçüncü menü seçeneği"

Toolbar1.Buttons(2).ButtonMenus(3).Visible = False  '1. alt menüye gözükmüyor

ListView1.ListItems.Add 1, , "osman", 1   'listview özelliğine (araç çubuğuna değil) resim eklemek için

ListView1.ListItems.Add 2, , "yıldırım", 2

ListView1.ListItems.Add 3, , "matematik", 3

End Sub

Private Sub ListView1_Click()

Select Case ListView1.SelectedItem.Index  'resimli listview öz. tıkladığımızda işlem yapması için

Case 1

MsgBox "ilk düğmeye bastınız"

Case 2

MsgBox "orta düğmeye bastınız"

Case 3

MsgBox "son düğmeye bastınız"

End Select

End Sub

Private Sub Slider1_Change()

Text1.Text = Slider1.Value

End Sub

Private Sub Timer1_Timer()

t = t + 1

Slider1.Value = t

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1

MsgBox "Osman Yıldırım"

Case 2

Case 3

End Select

End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Index

Case 1

Case 2

MsgBox "osman yıldırım usak üniversitesi"

Case 3

End Select

End Sub