Belajar Visual Basic 36. Contoh penggunaan menu pada project
Kita akan menjadikan frmMenu sebagai menu untuk aplikasi kita. Sekarang kita telah memiliki 4 buah form. frmMenu, frmBarang, frmPelanggan, dan frmDistributor. Langkah yang pertama tentu saja mengganti startup object menjadi frmMenu. Yang akan menjadikan frmMenu menjadi form yang pertama kali dijalankan ketika aplikasi di-run.
 |
| Menjadikan frmMenu sebagai start up object |
Langkah berikut adalah menjalankan Menu Editor. Setelah memahami struktur dari hirarki menu yang telah kita buat sebelumnya. Tidak akan terlalu sulit untuk membuat sebuah menu dengan tampilan Arsip> Barang, Pelanggan, Distributor, dan Exit. Dengan masing-masing name mnuArsip, mnuBarang, mnuPelanggan, mnuDistributor, dan mnuExit. Semuanya ditambahkan prefix mnu agar memudahkan pengorganisasian menu nantinya. Sehingga dihasilkan menu sebagai berikut:
 |
| Menu editor yang baru |
Setelah menu selesai dibuat maka pada frmMenu sudah dapat kita lihat hasilnya seperti gambar dibawah ini. Untungnya menu bisa kita lihat pada saat design time. Sehingga sangat memudahkan untuk melakukan pengecekan.
 |
| Menu dari frmMenu (run time) |
Menambahkan kode untuk mnubarang_click
Langkah selanjutnya adalah menambahkan code untuk memanggil masing-masing form yang ada melalu frmMenu. Caranya adalah dengan mengklik menu Arsip (pada modus design) di frmMenu, kemudian memilih menu Barang. Hal ini akan memunculkan event default dari mnuBarang yakni event click. Tambahkan kode seperti di bawah ini:
Private Sub mnuBarang_Click
frmbarang.show
End Sub
Penjelasan:
Event mnuBarang_click akan dijalankan setiap pengguna program mengklik menu Arsip > Barang. Tugas yang kita tambahkan dengan menambahkan kode frmbarang.show akan meload frmBarang dan menampilkannya kepada pengguna. Format penampilan akan tergantung dari jenis MDIChild yang kita pilih. Jika nilai MDIChildnya true maka frmBarang akan muncul sebagai anak dari frmMenu. Sedangkan jika mdiChildnya false amaka dia akan muncul sebagai form yang SDI.
Menambahkan kode untuk mnupelanggan_click, mnuDistributor_click, dan, mnuExit_Click
Untuk menambahkan pemanggilan terhadap frmPelanggan dan frmDistributor, kita hanya perlu melakukan langkah sederhana seperti frmBarang tersebut diatas. Hanya dengan menambahkan frmPelanggan.Show dan frmDistributor.Show untuk setiap menu Arsip> Pelanggan dan Arsip> Distributor
Sedangkan untuk mnuExit_click akan mendapatkan perlakuan yang berbeda. Dari tampilannya anda sudah tahu, bahwa mnuExit digunakan untuk mengakhiri program. Karena itu kita menggunakan perintah yang lain yakni:
End
Mungkin kita sudah familiar dengan code diatas. Yang artinya akan mengakhiri program. Dan kembali kepada modus design time. Jika program telah di compile, perintah ini akan mengakhiri program kita. Perintah ini sama dengan kita menggunakan unload me pada frmMenu. Masalahnya, perintah unload me tidak akan ikut serta menutup form SDI. Akan sangat lucu, jika kita mengakhiri program, tapi masih ada form tersisa bukan?
0 komentar:
Posting Komentar