Penggunaan TreeView di bahasa pemrograman Gambas2

Pada post kali ini saya sedikit memberikan gambaran bagaimana cara membuat menu utama dengan TreeView di gambas2, bagi temen-temen yang sudah terbiasa di Pemrograman Visual mungkin hal yang ini sudah sangat paling mudah, dan seperti itu juga dengan TreeView di gambas prinsipnya sama saja, sebagai bahan latihan, silahkan ikuti langkah-langkah sebagai berikut :
1. Masuk ke Gambas22. Tambah Object TreeView pada form dan sesuaikan dengan ukuran form yang ada
3. Tambahkan beberapa icon ke folder project gambas anda (lihat gambar dibawah ini)

 4. Buka Editor untuk penulisan coding, silahkan tulis coding dibawah ini

Gambas class file
PUBLIC SUB Form_Open()
DIM picBerkas AS Picture
DIM picBerkasA AS Picture
DIM picBerkasB AS Picture
DIM picPerangkat AS Picture
DIM picPerangkatA AS Picture
DIM picPerangkatB AS Picture
DIM picKeluar AS Picture
DIM picKonfigurasi AS Picture
DIM picNRP AS Picture
picBerkas = Picture["Gnome-System-Help-32.png"]
picBerkasA = Picture["Gnome-Media-Floppy-32.png"]
picPerangkat = Picture["Gnome-Preferences-System-32.png"]
picPerangkatA = Picture["Gnome-Aptoncd-32.png"]
picPerangkatB = Picture["user.png"]
picKeluar = Picture["Gnome-Process-Stop-32.png"]
picKonfigurasi = Picture["Gnome-Preferences-Other-32.png"]
picNRP = Picture["Gnome-Emblem-Shared-32.png"]
ME.Center
WITH TreeView1
.Add("Berkas", "Berkas", picBerkas)
.Add("DataPolisi", "Data Polisi", picBerkasA, "Berkas")
.Add("Perangkat", "Perangkat", picPerangkat)
.Add("Backup", "Backup", picPerangkata, "Perangkat")
.Add("Ganti Password", "Ganti Password", picPerangkatB, "Perangkat")
.Add("Konfigurasi", "Konfigurasi", picKonfigurasi)
.Add("FormatNRP", "Format NRP", picNRP, "Konfigurasi")
.Add("Ganti Password", "Ganti Password", picPerangkatB, "Perangkat")
.Add("Keluar", "Keluar", picKeluar)
.Add("Yes", "Yes",, "Keluar")
.Add("No", "No",, "Keluar")
END WITH
END PUBLIC SUB

TreeView1_Select()
SELECT CASE TreeView1.Item.Key
CASE "Data Polisi"
FrmList.Show
CASE "Yes"
QUIT
END SELECT
END

5. Tekan F5 untuk melihat hasilnya

Semoga bermanfaat ada, silahkan memberikan komentar