Layout tampilan sajian dalam sistem sangat bervariatif semuanya tergantung dari kreasi programmer itu sendiri ada yang menciptakan tipe biasa, Ribbon, XP SideBar dan masih banyak lainnya. Kali ini admin akan share Pembuatan Menu Dengan TreeView. Caranya pun cukup gampang pertama buat terlebih dahulu database untuk dan tabel menu. Disini admin memakai database versi Ms. Access 2000 tampilannya menyerupai dibawah ini : 

Pembuatan Sajian Dengan Treeview Visual Basic 6.0 (Vb6)
Atau jikalau agan-agan ingin menambahkan beberapa sajian lagi dipersilahkan, simpan database tersebut didalam suatu folder. Buka Ms. Visual Basic 6.0 (VB6) – StandarEXE dan buatlah sebuah form jangan lupa tambahkan komponen TreeView dengan cara tekan ctrl + T pada keyboard cari dan ceklis Microsoft Windows Common Control 6.0 (SP2). Tambahkan komponen TreeView pada form yang telah kita buat. Sebelum kita koneksikan ke database sajian sebelumnya kita harus mengaktifkan komponen koneksi ODBC biar dapat terkoneksi ke database.

Pembuatan Sajian Dengan Treeview Visual Basic 6.0 (Vb6)
Buatlah sebuah module untuk menampung function dan variabel yang bekerjasama dengan koneksi database dan pastekan syntak dibawah ini

Public CN As New ADODB.Connection
Public xRsMenu As New ADODB.Recordset

Sub Koneksi()
CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\DBase.mdb;Persist Security Info=False”
CN.CursorLocation = adUseClient
End Sub

Kemudian double klik pada form pilih mekanisme Form_Load dan pastekan syntak dibawah ini 

Private Sub Form_Load()
Call Koneksi
  Dim NodX As Node
  TreeView1.Nodes.Clear
  TreeView1.Nodes.Add , , “FileMaster”, “File Master”
  TreeView1.Nodes.Add , , “Proses”, “Proses”
  TreeView1.Nodes.Add , , “Laporan”, “Laporan”
  TreeView1.Nodes.Item(1).Bold = True
  TreeView1.Nodes.Item(1).Expanded = True
 
  TreeView1.Nodes.Item(2).Bold = True
  TreeView1.Nodes.Item(3).Bold = True

 Dim xRsFileManager As New ADODB.Recordset
 Set xRsFileManager = New ADODB.Recordset
 xRsFileManager.Open “select * from MENU where KategoriMenu=’File Master'”, CN, 1, 3
 If xRsFileManager.RecordCount > 0 Then
    xRsFileManager.MoveFirst
    While Not xRsFileManager.EOF
        Set NodX = TreeView1.Nodes.Add(“FileMaster”, tvwChild, , xRsFileManager.Fields!Mnu)
            xRsFileManager.MoveNext
        Wend
 End If

 Dim xRsLaporan As New ADODB.Recordset
 Set xRsLaporan = New ADODB.Recordset
 xRsLaporan.Open “select * from MENU where KategoriMenu=’Laporan'”, CN, 1, 3
 If xRsLaporan.RecordCount > 0 Then
    xRsLaporan.MoveFirst
    While Not xRsLaporan.EOF
        Set NodX = TreeView1.Nodes.Add(“Laporan”, tvwChild, , xRsLaporan.Fields!Mnu)
            xRsLaporan.MoveNext
        Wend
 End If
 Dim xRsProses As New ADODB.Recordset
 Set xRsProses = New ADODB.Recordset
 xRsProses.Open “select * from MENU where KategoriMenu=’Proses'”, CN, 1, 3
 If xRsProses.RecordCount > 0 Then
    xRsProses.MoveFirst
    While Not xRsProses.EOF
        Set NodX = TreeView1.Nodes.Add(“Proses”, tvwChild, , xRsProses.Fields!Mnu)
            xRsProses.MoveNext
        Wend
 End If
End Sub


Simpan lalu Run/F5 maka Pembuatan Menu Dengan TreeView Visual Basic 6.0 (VB6) sudah dapat tampil menyerupai gambar dibawah ini

Pembuatan Sajian Dengan Treeview Visual Basic 6.0 (Vb6)
Untuk sourcodenya dapat didownload di LINK INI