Cara Membuat Menu Treeview Di Visual basic 6 + Source Code menu Treeview Visual Basic 6
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
'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"
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
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"
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]
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.