VB7 Menu VB

Cara Membuat Menu

Untuk membuat menu pada aplikasi, Visual Basic 6 menyediakan sebuah sarana yang sangat mudah digunakan, yaitu Menu Editor.

Ada dua cara untuk menampilkan Menu Editor yaitu : Click menu Tools-Menu Editor atau click gambar Menu Editor di ToolBar.

Setelah itu akan muncul kotak dialog menu editor seperti gambar dibawah pada form terpilih :

Selanjutnya :

1. Pada kotak Caption ketikkan teks yang kita ingin tampilkan pada menu. Kita bisa menambahkan karakter (&) disebelah kiri huruf yang akan dijadikan tombol akses. VB secara otomatis akan menggarisbawahi huruf yang diberi tanda &.
2. Pada kotak Name ketiklah nama yang akan digunakan untuk pemanggilan di code window.
3. Kita bisa menekan tombol panah kiri atau panah kanan untuk mengubah posisi control menu tersebut sebagai judul menu, item menu, judul submenu atau item submenu.
4. Selanjutnya mengatur property untuk control menu tersebut. Pengaturan ini bisa berlangsung pada menu editor atau bisa juga dilakukan nanti melalui code program. Property visible untuk memunculkan atau tidak suatu item. Property enabled digunakan untuk dapat diakses atau tidak suatu item menu.
5. Click Next untuk membuat control menu lainnya atau click Insert untuk menambahkan control menu yang baru diantara control menu yang sudah ada. Tombol panah atas atau panah bawah bisa kita gunakan untuk berpindah diantara control menu pada kotak daftar.
6. Untuk memisahkan item menu kedalam bagian-bagian digunakan garis pemisah (sparator) horizontal. Pada caption ketiklah (-).
7. Shortcut adalah kombinasi tombol keyboard yang ditekan untuk menjalankan item menu secara langsung. Untuk membuat sortcut click pada panah drop down shortcut dan pilih kombinasi tombol keyboard yang sesuai.

Contoh Program Menu

Membuat menu yang umum terdapat pada program aplikasi Windows.

1. Buat sebuah project baru

2. Click Tool > Menu Editor atau click Menu Editor atau tekan Ctrl+E untuk menampilkan Menu Editor

3. Dari Menu Editor ketik property menu dibawah ini :

Property Menu :

Caption	Name	Shortcut	Checked
&File …&New …&Open …&Save …&Close … - …Printer Set&Up …&Print … - …E&xit &Edit …&Undo … - …Cu&t …Co&py …&Paste … - …&Find… &View …&ToolBar …&StatusBar … - …&Option… &Help …Contents …&Online ……&HomePage ……&Tutorial …… - …&About	mfile mnew mopen msave mclose msprl1 mup mprint msprl2 mexit medit mundo msprl3 mcut mcopy mpaste msprl4 mfind mview mtoolbar mstatusbar msprl5 moption mhelp mcontent monline mhomepage mtotorial sprl6 mabout	Ctrl+O Ctrl+S Ctrl+L Ctr+P Ctrl+X Ctrl+C Ctrl+T Ctrl+F F1	True True

Catatan :

4. Kembali lagi ke item menu Paste dan aturlah property enabled menjadi False

Object	Property	Nilai
Form1	Caption	Menu

      

    Contoh:

 5. Setelah selesai jalankan menu dengan menekan tombol F5 Hasilnya :

     Hasilnya :

========================================================================

Program Menu Panjang

Judul Menu dapat diatur agar ditampilkan panjang (semuanya) atau pendek (sebagian saja). Untuk mengganti menu ditampilkan panjang atau pendek digunakan variabel dengan type data Boolean. Langkah selkanjutnya adalah memanggil prosedur umum untuk menghapus semua menu, baru ditampilkan menu panjang atau pendek.

1. Buat project baru

2. Buat form dengan tampilan sebagai berikut

Form :

3. Atur property seperti tabel dibawah ini :

Property Form :

Object	Property	Nilai
Form1	Caption	Menu Panjang I
Command1	Caption Name	&Ganti Menu cmdGanti

    

     Property Menu :

Caption	Name
&File	mfile
&Edit	medit
&View	mview
F&ormat	mformat
&Windows	mwindows
&Tools	mtools
&Help	mhelp

4. Kemudian buat program pada Window Code seperti berikut ini :

5. Setelah selesai jalankan dengan menekan tombol F5.
    Hasilnya :

========================================================================

Membuat Menu Popup

Menu popup adalah menu yang ditampilkan diatas form dengan cara click mouse kanan dan terpisah dari menu bar. Lokasi pemunculan menu tergantung dari tempat kita menekan tombol mouse.

Untuk membuat menu popup VB menyediakan perintah popupmenu yang sintaknya adalah sebagai berikut.

[object] PopupMenu NamaMenu[,flags[,x[,y[,bold]]]]

Parameter Flagsdiisi dengan konstanta intrinsik penulisan item menu. Nilai defaultnya adalah VbPopupMenuAlign dan VbPopupMenuLeftButton.

Parameter x dan y digunakan untuk menentukan koordinat x dan y tempat menu popup akan ditampilkan. Jika tidak diisi, menu popup akan muncul pada waktu pointer mouse ditekan ditempat lokasi object.

Parameter bolddigunakan untuk menentukan item menu yang akan ditulis tabel.

Program Menu Popup

Program untuk membuat menu popup. Pada menu perintah property visible-nya false sehingga tidak tampak pada baris menu. Menu perintah baru muncul jika pemakai menekan tombol mouse kanan di form.

1. Buat sebuah project baru

2. Susun formnya sebagai berikut:

3. Atur property sebagai berikut :

    Properti Menu :

Caption	Nama	Shortcut	Visible
&Perintah	mperintah	False
&Start	mmulai	Ctrl+S
ST&op	mberhenti	Ctrl+O
-	sprl
E&xit	mkeluar	Ctrl+X

    Property :

Object	Property	Pengaturan
Form1	Caption	Popup Menu
Timer1	Enabled Interval	False 100

4. Dari Window Code tuliskan programnya sebagai berikut :

   

      Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

            If Button = 2 Then

              PopupMenu mperintah

 End If

End Sub

Private Sub Timer1_Timer()

Static x1, y1, x2, y2 As Currency

merah = Rnd * 255

hijau = Rnd * 255

biru = Rnd * 255

x2 = Rnd * Form2.ScaleWidth

y2 = Rnd * Form2.ScaleHeight

Line (x1, y1)-(x2, y2), RGB(merah, hijau, biru)

x1 = x2

y1 = y2

End Sub

Private Sub mberhenti_Click()

   Cls

   Timer1.Enabled = False

    mberhenti.Enabled = True

    mmulai.Enabled = True

End Sub

Private Sub mmulai_Click()

    Timer1.Enabled = True

    mmulai.Enabled = True

     mberhenti.Enabled = False

End Sub

Private Sub mkeluar_Click()

    Unload Me

End Sub

5. Setelah selesai jalankan dengan menekan tombol F5

    Hasil :

Artikel Terkait: