Pembuatan Menu Dengan TreeView Visual Basic 6.0 (VB6)

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

Atau jika agan-agan ingin menambahkan beberapa menu 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 menu sebelumnya kita harus mengaktifkan komponen koneksi ODBC agar bisa terkoneksi ke database.

Buatlah sebuah module untuk menampung function dan variabel yang berhubungan 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 prosedur 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 kemudian Run/F5 maka Pembuatan Menu Dengan TreeView Visual Basic 6.0 (VB6) sudah bisa tampil seperti gambar dibawah ini

Untuk sourcodenya bisa didownload di LINK INI