Treeview Control di Visual Basic 6.0

 

Treeview Control pertama kali terintegrasi pada Visual Basic 5 dan selalu digunakan untuk menampilkan informasi secara bertingkat. Anda tentu sudah sering melihat windows explorer. Lihat gambar di bawah ini: Gambar di bagian adalah gambar contoh Treeview pada windows explorer. sekarang kita akan membuat treeview dengan Dua Induk dan Empat Anak pada masing-masing cabang (Node) memakai Visual Basic. Buka project baru pilih standard project lalu klik Project - Componen - Pilih Windows Common Control. Lihat gambar di bawah ini: Anda akan melihat di Toolbox sebelah kiri ada penambahan control Treeview. Lihat gambar di bawah ini: Double klik kontrol Treeview tersebut lalu atur sedemikian rupa letaknya pada form. Lalu ketik kode seperti dibawah ini: Private Sub Form_Load()   Dim NodX As Node   TreeView1.LineStyle = tvwRootLines   For i = 1 To 2     TreeView1.Nodes.Add , , "keyRoot" & CStr(i), i           For j = 1 To 4 Set          NodX = TreeView1.Nodes.Add("keyRoot" & CStr(i), tvwChild, "keySub" & i & j, "i" & i & "." & "j" & j)       Next j    Next i End Sub Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)    MsgBox Node.Key End Sub Jalankan program. Klik tanda positip pada Treeview. Lalu klik salah satu cabang. Anda akan melihat gambar seperti di bawah ini: lengkapnya di sini:http://www.xbasicpro.com/training/vb6/vb6_treeview.aspx