FORM ÜZERİNDE BUTON VE MENÜ OLUŞTURMA

Private Sub Form_Load()

TreeView1.Checkboxes = True

TreeView1.Nodes.Add , , "iller", "Türkiyenin illerİ"

TreeView1.Nodes.Add "iller", tvwChild, "kny", "KONYA", 1

TreeView1.Nodes.Add , , "a", "Türkiyenin kasabaları"

TreeView1.Nodes.Add "a", tvwChild, "aa", "Deşdiğin Kasabaları", 2

TreeView1.Nodes.Add "aa", tvwChild, "aaa", "Kemer Köyü", 3

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1

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

Case 2

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

Case 3

MsgBox "üçüncü düğmeye bastınız"

End Select

End Sub

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

Select Case ButtonMenu.Index

Case 1

MsgBox "ilk menüye bastınız"

Case 2

MsgBox "ikinci menüye bastınız"

End Select

End Sub

Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)

Select Case Node.Child.Key

Case "aaa"

MsgBox "kapattın"

End Select

End Sub

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)

Select Case Node.Child.Key

Case "aaa"

MsgBox "açtın"

End Select

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)

Select Case Node.Index

End Sub