MEMBUAT MENU BERBEDA DENGAN GAMBAR PADA VISUAL BASIC
Apabila
anda membuat menu dengan fasilitas Menu
Editor standar, maka pada tampilan submenu tidak terdapat gambar. Berikut
ini trik utnuk menambahkan gambar kedalam menu.
1. Bukalah program Visual Basic 6.0
dan mulai dengan form baru.
2. Klik kanan di dalam area form dan
klik Menu editor. Sebagai ilustrasi
perhatikan gambar berikut ini :
3. Buatlah menu seperti gamabr
dibawah ini dengan propertis Name
submenu dan Index sub menu
sesuai angka pada masing – masing sub.
4. Kemudian masukkan tiga komponen PictureBox dan isi Picture pada masing – masing komponen seperti gambar di bawah ini.
5.
Selanjutanya
ubah propertis Name pada masing – masing koponen PictureBox menjadi Gambar.
6. Setelah itu aktifkan jendela
kode, ketiklah perintah pendeklarasian di bawah ini pada bagian Genearal Declerations.
1
|
Option
Explicit
|
2
|
Private
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
|
3
|
Private
Declare Function GetMenuItemID Lib "user32" (ByVal menu As Long,
ByVal nPos As Long) As Long
|
4
|
Private
Declare Function GetSubMenu Lib "user32" (ByVal menu As Long, ByVal
nPos As Long) As Long
|
5
|
Private
Declare Function SetMenuItemBitmaps Lib "user32" (ByVal menu As
Long, ByVal posisi As Long, ByVal wFlags As Long, ByVal hbitmapunchecked As
Long, ByVal hbitmapunchecked As Long) As Long
|
Keterangan Kode
1
|
perintah
yang akan mewajibkan anda mendeklarasikan semua variabel yang digunakan.
|
2-5
|
pendeklariasian
variabel untuk mendapatkan nilai menu, id menu, sub mneu dan menampilkan
gambar pada sub menu.
|
7.
Kembali
ketampilan desain form dan klik ganda di dalam area form. Selanjutnya ketiklah
perintah di bawah ini pada prosedur Form_Load.
1
|
Private
Sub Form_Load()
|
2
|
Dim
menu As Long, submenu As Long, posisi As Long
|
3
|
Dim
i As Long, x As Long
|
4
|
menu
= GetMenu(Me.hwnd)
|
5
|
submenu
= GetSubMenu(menu, 0)
|
6
|
For
i = 0 To 2
|
7
|
posisi
= GetMenuItemID(submenu, i)
|
8
|
x = SetMenuItemBitmaps(menu, posisi, 0,
CLng(gambar(i).Picture), CLng(gambar(i).Picture))
|
9
|
Next
|
10
|
End
Sub
|
Keterangan Kode
2-3
|
Mendeklarasikan
beberapa variabel yang akan digunakan
|
4
|
Mengisi
variabel menu dengan nilai untuk
mendapatkan menu yang terdapat di dalam form
|
5
|
Mengisi
variabel submenu dengan nilai
untuk mendapatkan sub menu yang terdapat di dalam variabel menu (sub menu yang terdap;at di dalam
form)
|
6-9
|
Melakukan
perintah pengulangan untuk mengisi variabel posisi dengan nilai sub menu dan
variabel i. kemudian mengisi
variabel x dengan perintah untuk
memasukkan gambar pada sub menu.
|
8. Untuk melihat hasil, tekan tombol
F5 pada keyboard.
demikianlah cara membuat menu dan sub menu dengan gambar pada visual basic.
EmoticonEmoticon