Skip Navigation Links.

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:



Untuk memperoleh penjelasan kode detail beserta dengan contoh source code nya anda bisa mendapatkannya bersama paket E-Book saya yang berjudul TRIK DASAR BELAJAR VISUAL BASIC 6.0

Contoh pemakaian pada project database Apotik  klik di sini
                                                                                                                                                                                           
HyperLink Share 
Mau punya penghasilan? ikuti program-program di bawah ini:
xbasicpro.com
HyperLink
counter sejak 5 april 2010
  (C)XBasicPro | XBasicPro di Facebook