Membuat TreeView

TreeView biasanya digunakan utk menampilkan data berjenjang atau bisa juga dibukan sebagai menu. Berikut ini saya akan berikan contoh bagaimana membuat data bisa ditampilkan pada treeview ini, namun sebelumnya saya akan perlihatkan cara sederhana utk membuat treeview ini sbg menu seperti gambar dibawah ini :

Kode utk menampilkan seperti gambar diatas adalah seperti dibawah ini


Private Sub Form_Load()
Dim vnode As Node
With TreeView1
.ImageList = ImageList1
'---membuat node Header dgn key=Header
'---key ini nantinya digunakan utk acuan
'---membuat subnode
Set vnode = .Nodes.Add(, , "Header", "Root")

'---membuat sub node dibawah node header dgn key=Child1
Set vnode = .Nodes.Add("Header", tvwChild, "SubNode1", "Child 1")
Set vnode = .Nodes.Add("Header", tvwChild, "SubNode2", "Child 2")

'---membuat sub node dibawah subnode Child 1"
Set vnode = .Nodes.Add("SubNode1", tvwChild, "SubNode", "Child 1-1")
vnode.EnsureVisible
End With

ListView1.ColumnHeaders.Add , , "Company Name", 2000
End Sub


Sekarang saya akan memberikan contoh treeview yang digunakan sebagai seperti layaknya Windows Explorer, dimana treeview berpasangan dengan listview seperti gambar dibawah ini :

Kode utk bisa seperti gambar diatas seperti berkut ini


Private Sub cmdCustomer_Click()
Dim vnode As Node
TreeView1.Nodes.Clear
Set vnode = TreeView1.Nodes.Add(, , "Root", "Kode Pelanggan", 1)
Do While adoRset.EOF = False
Set vnode = TreeView1.Nodes.Add("Root", tvwChild, , adoRset!customerid, 2)
adoRset.MoveNext
Loop
'--semua node di expan/terlihat
vnode.EnsureVisible
End Sub

'--event ini utk menampilkan data ke dlm listview
'--berdasarkan node yg di click
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
adoRset.Close
Dim Kode As String
Dim SQL As String

Kode = TreeView1.Nodes(Node.Index).Text
SQL = "SELECT CompanyName FROM customers WHERE customerID= '" & Kode & "'"

adoRset.Open SQL, adoConn

Dim vItem As ListItem

ListView1.ListItems.Clear

With ListView1
.View = lvwReport
Do While adoRset.EOF = False
Set vItem = .ListItems.Add(, , adoRset!CompanyName)
adoRset.MoveNext
Loop
End With
End Sub


Sumber: visualcode.comxa.com