Yeni Kontroller: TreeView
Zaman zaman Visual Basic 4.0 ile gelen yeni kontrollere değiniyoruz. İşte bu yeni kontrollerden birisi: Treeview. Windows 95’in Gezgininde sol klasör penceresi bu kontrolle oluşturulmuş. Kontrolün kullanımı gayet basit, nasıl kullanıldığını merak ediyorsanız hemen boş bir formun üzerine bir Treeviev kontrolü yaratın ve aşağıdaki kodları yazmaya başlayın. Kontrolün kullanımı hakkındaki tüm açıklamalar kodların arasında verilmiştir.
Private Sub Form_Load()
Dim nodX As Node
' Bir metni ana başlık olarak atamak için aşağıdaki gibi bir komut kullanmalısınız.
Set nodX = TreeView1.Nodes.Add(, , , "Müzik")
'Aşağıdakinin amacı 1. Başlığa bir alt başlık eklemektir.
' Eklediğiniz altbaşlıklar eklenme sıralarına göre görüntülenir.
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Jazz")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Pop")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Klasik")
Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "Rock")
' Pop alt başlığı altına 2.altbaşlık daha ekliyoruz.
Set nodX = TreeView1.Nodes.Add(3, tvwChild, , "Techno")
Set nodX = TreeView1.Nodes.Add(3, tvwChild, , "Rave")
' 2. Anabaşlığı ekliyoruz.
Set nodX = TreeView1.Nodes.Add(, , , "Resim")
' Tüm ağacı göstermek için kontrolü tazele.
nodX.EnsureVisible
End Sub
' Ağacın dallarından birine tıklandığında...
Private Sub TreeView1_NodeClick(ByVal Node As Node)
mesaj$ = "Tıkladığınız Liste Seçeneği: " + Node.Text
tip = 64
baslik$ = "Treeview Örneği"
' Hangi dala tıklandığını söyle.
MsgBox mesaj$, tip, baslik$
End Sub