Cara Membuat Menu Treeview Di Visual basic 6 + Source Code menu Treeview Visual Basic 6

7/16/2015 06:52:00 AM , 0 Comments


Udah tau belum apa itu menu treeview?
kalau udah tau kita langsung ajha buat menu nya, Bagi yang belum silahkan Googling Ajha apa itu menu treview.!
lihat ajha Menu Treview buat tan ane,
jadi kalian bisa tau apa itu menu
treview.
Kali ini ane akan bagi cara bikin menu
treeview ini, ane punya 2 cara,
yang pertama dengan Databas dan
yang kedua tidak memakai database...

Pemakain Database menggunakan
Microsoft Acces, bagi kalian yang nggak suka bisa buat tanpa Database ajha... , nih ane kasih caranya :

1. Menu TreeView Tanpa Database


menu treeview  ini di buat tanpa database M Acces Atau M Exxel atau lainya, Agan bisa liat nih caranya :

>Pertama tama agan buat 1 buah Form :

>Kedua buat 1 buah tombol dengan  'Name = "tombol1" ' dan 'Enable = "false"'
untuk mengedit Name dan Enable kalian bisa klik 1 kali tombol lalu tekan f4 atau lihat propertis
buat juga 1 buah treeview dengan cara "Add components [ctrl+T]" lalu cari "Microsoft Windows Common Control 6.0(sp6), treeviewnya dengan propertis = 'Name : "mnuTree" '





>Ketiga buat kode seperti ini di Form 1 :
 
Private Sub Form_Load()
  'memanggil aksi saat salah satu menu treeview di tekan / pemberian event
    With mnuTree
        .Style = tvwTreelinesPlusMinusText
        .LineStyle = tvwRootLines
        .Indentation = 300.47
    End With

mnuTree.Nodes.Clear
    With mnuTree.Nodes
        '>>>>MENU BERANDA DI BUKA<<<<'
        Set root = .Add(, , "menuberanda", "Beranda")
        root.Bold = True
        .Add root, tvwChild, "informasi", "Informasi"
        .Add root, tvwChild, "pembaharuan", "Pembaharuan"
        
        '>>>>MENU PEMINDAIAN DI BUKA<<<<'
        Set root = .Add(, , "menupemindaian", "Menu Pemindaian")
        root.Bold = True
        .Add root, tvwChild, "objek", "Objek Pemindaian"
        .Add root, tvwChild, "pemindaian", "Pemindaian"
        .Add root, tvwChild, "hasil", "Hasil Pemindaian"
        

    End With
    For i = 1 To mnuTree.Nodes.count
        mnuTree.Nodes(i).Expanded = True
    Next
End Sub

Private Sub mnuTree_DblClick()
    If mnuTree.Nodes(mnuTree.selectedItem.Index).Children = 0 Then 'menu anak
        Select Case mnuTree.selectedItem.Key
            Case "informasi": tombol1.Enabled = True    'ini adalah aksi saat  menu informasi di klik maka tombol 1 akan mati alias enabled false
            Case "pembaharuan"
            Case "objek"
            Case "pemindaian"
            Case "hasil":   Antivirus.Show
        End Select
    End If
End Sub

>kalian bisa edit menu di atas dengan catatan :
 *Case "informasi": tombol1.Enabled = True    'ini adalah aksi saat  menu informasi di klik maka tombol 1 akan mati alias enabled false
 Case "objek"

+warna hijau adalah nama dari Menu/sub menu  yang akan di beri aksi.Event
+Warna biru adalah aksi ketika Nama sub menu/menu di tekan


* '>>>>MENU BERANDA DI BUKA<<<<'
        Set root = .Add(, , "menuberanda", "Beranda")
        root.Bold = True
        .Add root, tvwChild, "informasi", "Informasi"
        .Add root, tvwChild, "pembaharuan", "Pembaharuan"

+Warna merah adalah menu nya
+dan Warna kuning adalah Sub menu nya



Jika Agan download Source code di bawah ini, Agan akan ane beri Treeview Dengan MDI FORm dan TREEVIEW DENGAN DATABASE GRatis....!

>bagi kalian yang masih bingung bisa download Source code nya disini

Link error? , Klik Disini untuk download  [Via Google Drive]

viandwi

Some say he’s half man half fish, others say he’s more of a seventy/thirty split. Either way he’s a fishy bastard.

0 komentar:

1. Jangan lakukan Spamming
2. Saya Tidak Menerima komentar "Anonim"
3. jika Ingin Berkomentar tanpa Akun Silahkan Tekan Tombol Di Samping "Beri Komentar Sebagai :" Lalu pilih Name/URL , isi nama mu , url Tidak Diisi Juga Tidak Apa-apa lalu klik Publish.
4. Berkomentar yang Sopan
5. jangan promosi Di Komentar , Menyantumkan link Web kalian Di perbolehkan

===========Atas Perhatiannya Thanks==========
Jika ingin menambahkan Gambar,Video atau lainya silahkan copy url gambar/video mu lalu pastekan ke Conversi Html di bawah ini.