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:
Bukan siapa-siapa dan bukan apa-apa. Hanya NewBie Yang mencoba berbagi apa yang saya peroleh.
