Menu Editor

BAB VIII DESAIN MENU 8.1.

Menu Bar

Menu adalah kumpulan baris perintah untuk melakukan suatu tugas tertentu. Pada sebuah program aplikasi, menu dikumpulkan dan ditampilkan pada sebuah batang yang disebut menu bar. Sebuah program aplikasi yang baik, harus memiliki menu bar agar seorang user dapat memanfaatkan semua kemampuan yang dimiliki program aplikasi.

Gambar 8.1. Dialog Menu Editor. Pada Visual Basic, untuk membuat sebuah menu bar digunakan fasilitas Menu Editor. Untuk memamanggil Menu Editor, klik menu ToolsMenu Editor…, atau klik tobol pada tooolbar, atau tekan tombol Ctrl+E pada keyboard. Untuk mengawali membuat sebuah menu, ketikkan teks pada text box Caption, contoh: &File. Tanda “&” digunakan untuk menentukan shortcut menu (melalui penekanan tombol Alt pada keyboard). Huruf setelah tanda “&” akan dibubuhi garis bawah. Kemudian ketikkan nama untuk menu tersebut pada text box Name, contoh: mnuFile. Klik tombol Next untuk membuat menu berikutnya. Ketikkan: &New pada text box Caption dan ketikkan: mnuFileNew pada text box Name. Klik tombol bergambar anak panah ke kanan ( ). Langkah ini berfungsi untuk mengubah menu menjadi sub menu (pada ListView akan tertulis ---&New). Pilih Ctrl+N pada combobox Shortcut. Klik tombol OK untuk menutup dialog Menu Editor. Pada sisi kiri atas form (di bawah title bar) sudah tercetak sebuah menu bar dengan teks: File. Klik menu File, di dalam menu File akan terdapat sub menu New.

Gambar 8.2. Form dengan menu File.

Tampilkan kembali Menu Editor, klik tombol Next dua kali untuk menambahkan sebuah sub menu baru. Ketikkan tanda separator “-“ pada textbox Caption. Ketikkan: spr11 pada TextBox Name. Klik tombol OK. Sekarang, klik menu File pada form. Di bawah menu New akan tercetak sparator/pembatas menu. Tampilkan kembali Menu Editor, klik tombol Next tiga kali untuk menambahkan sebuah sub menu baru. Klik tombol bergambar anak panah ke kiri ( ), untuk mengubah sub menu menjadi menu utama. Ketikkan: &Edit pada textbox Caption dan ketikkan: mnuEdit pada textbox Name. Klik tombol Next, klik tombol bergambar anak panah ke kanan ( ). Ketikkan: &Tampil pada textbox Caption dan ketikkan: mnuEditTampil pada text box Name. Tandai checkbox Checked. Klik tombol OK. Pada form sudah terdapat menu utama baru dengan nama Edit. Klik menu Edit tersebut, akan terdapat sebuah sub menu Tampilan yang dilengkapi tanda check di sisi kirinya.

Gambar 8.3. Form dengan menu File dan Edit. Tampilkan kembali Menu Editor, buat sebuah menu baru dengan Caption: &Windows dan dengan Name: mnuWindows, tandai check box WindowList. WindowList hanya dapat digunakan pada sebuah menu utama dan biasanya digunakan pada aplikasi multiple interface (menggunakan MDIForm). WindowsList adalah fasilitas untuk menampilkan form-form anak (yang sedang ditampilkan pada sebuah MDIForm) melalui sub-sub menu.

8.2.

Menu Pop-Up

Menu Pop-Up adalah menu yang ditampilkan pada saat Anda mengklik tombol kanan mouse. Untuk membuat menu Pop-Up sama seperti membuat MenuBar, hanya saja diperlukan rutin kode untuk memanggil menu tersebut. Menu yang dijadikan Pop-Up adalah menu utama. Rutin pemanggilan ditempatkan pada Prosedur event MouseUp atau MouseDown dari form atau dari sebuah objek. Rutin pemanggilan: Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) [If Button = {2 | vbRightButton} Then] Me.PopupMenu namaMenuUtama [, Flags] _ [, X][, Y] [,DefaultMenu] [End If] End Sub Argumen NamaMenuUtam a Flag X Y DefaulMenu

Keterangan Nilai properti Name dari menu utama Jenis tampilan menu Pop-Up Posisi atas menu Pop-Up terhadap form Posisi kiri menu Pop-Up terhadap form Item menu yang di-default-kan (dicetak tebal)

Flag Const vbPopupMenuCenterAlign

Nilai 4

Keterangan Menu Pop-Up ditampilkan dari

vbPopupMenuLeftAlign

0

vbPopupMenuLeftButton

0

vbPopupMenuRightAlign

8

vbPopupMenuRightButton

2

tengah-tengah posisi Horisontal pointer Menu Pop-Up ditampilkan dari sisi kiri Horisontal pointer Menu Pop-Up hanya dapat ditutup setelah mengklik tombol kiri mouse Menu Pop-Up ditampilkan dari sisi kanan Horisontal pointer Menu Pop-Up dapat ditutup dengan mengklik tombol kiri maupun kanan mouse

Contoh pemanggilan: Private Sub Form_MouseDown(Button As Integer, _ Shift As Integer, X As Single, Y As Single) If Button = 2 Then Me.PopupMenu mnuFile, 2 Or 4, , , mnuFileNew End If End Sub Ketika Anda mengklik tombol kanan mouse, popup menu akan ditampilkan dari posisi tengah horisontal pointer, dan menu New akan dicetak tebal.