Salam hangat untuk sobat Gudangsoft ware semua semoga tambah cakep2 n sehat selalu...
oke kali ini ane akan
berbagi sedikit info tentang pebedaan cara Menambahkan Icon pada menu
strip di Visual Basic 6.0 dan VB.Net, oke gag pake lama.... Langsung
saja kita ke TKP...
Berikut langkah-langkahnya untuk yang Visual Basic 6.0 :
1. Buat menu seperti biasanya menggunakan Menu Editor
2. Download komponen vbAccelerator VB6 PopMenu Control ekstrak kemudian copykan ke file tersebut ke folder Windows\System32. Setelah itu ketik perintah berikut dari Start -Run
1 | regsvr32 cpopmenu6.ocx |
- Micrososft Windows Common Control 6.0 (SP6)
- vbAccelerator VB6 PopMenu Control – bla bla bla
4. Masukkan kedua komponen tersebut ke form
khusus untuk komponen ImageList tambahkan beberapa icon dan jangan lupa mengeset keynya
5. Terakhir bagian kode, tambahkan fungsi dan prosedur berikut :
01 | Private Function getIconIndex(ByVal key As String) As Long |
02 | getIconIndex = ImageList1.ListImages.Item(key).Index - 1 |
03 | End Function |
04 |
05 | Private Sub setIcon(ByVal key As String, ByVal menuName As String) |
06 | Dim iconIndex As Long |
07 |
08 | iconIndex = getIconIndex(key) |
09 | PopMenu1.ItemIcon(menuName) = iconIndex |
10 | End Sub |
Kemudian tinggal tambahkan kode di event Form_Load seperti berikut :
01 | Private Sub Form_Load() |
02 | With PopMenu1 |
03 | .ImageList = ImageList1 |
04 | .OfficeXpStyle = True |
05 | .SubClassMenu Me |
06 |
07 | Call setIcon("new", "mnuNew") |
08 | Call setIcon("open", "mnuOpen") |
09 | Call setIcon("close", "mnuClose") |
10 | Call setIcon("save", "mnuSave") |
11 | Call setIcon("preview", "mnuPrintPreview") |
12 | Call setIcon("print", "mnuPrint") |
13 | Call setIcon("mail", "mnuMailRecipient") |
14 | Call setIcon("fax", "mnuFaxRecipient") |
15 | Call setIcon("powerpoint", "mnuMicrosoftPowerPoint") |
16 | End With |
17 | End Sub |
Jalankan program (F5) Anda akan mendapatkan hasil seperti berikut :
Sample program bisa Anda download disini.
Selamat mencoba
Dan Selanjutnya Untuk yang Visual Basic DOT Net
1. Klik Menu Utama, Sub Menu atau Sub Sub Menu yang akan diberi icon.
2. Pilih properties image dan klik tombol ini :
4. Pilih Project resources file kemudian klik tombol Import untuk mencari icon/gambar
yang akan dipasang.
5. Pilih icon yang diinginkan dengan mengklik file-file di suatu folder tertentu
kemudian tekan tombol Open.
6. Di Dialog window Select Resouce pada pilihan Project resources file akan muncul
nama-nama icon yang anda pilih kemudian klik salah satu.
7. Setelah itu klik tombol OK maka gambar icon tersebut akan berada di samping
Menu Utama, Sub Menu atau Sub Sub Menu yang diinginkan.
Memberi Access Keys Pada Menu Strip
Kita
dapat menambah Access keys/tombol keyboard untuk mengaktifkan suatu
menu pada Menu Utama, Sub Menu atau Sub Sub Menu. Caranya adalah sbb :
1. Klik Menu Utama, Sub Menu atau Sub Sub Menu yang aka
2. Pilih properties text kemudian tambahkan simpol & disamping kiri huruf di nama Menu Utama, Sub Menu atau Sub Sub Menu yang akan dijadikan tombol Access keys.n diberi Access keys.
3.
Misalkan pada menu FIle access key-nya adalah kombinasi tombol Alt dan
Huruf F maka simbol & diletakkan di samping kiri huruf F pada File.
4. Tampilan menu yang telah diberi Access keys akan ada garis bawah seperti tampilan berikut :
Memberi Tombol Short Cut pada Menu Strip
Kita dapat menambahkan tombol short cut untuk mengaktifkan suatu perintah
pada Sub Menu atau Sub Sub Menu secara langsung. Caranya adalah sbb :
1. Klik Sub Menu atau Sub Sub Menu yang akan diberi short cut.
2. Pilih properties ShortcutKeys dan klik combo box-nya maka akan muncul
tampilan sbb :
3. Isikan kombinasi tombol keyboardnya misalnya CTRL dan M
4. Tampilan properties ShortcutKeys setelah diisi tombol short cut.
5. Jika Shortcut ingin ditampilkan disamping nama menuanya maka properties ShowShortcutKeys diberi nilai True.
6. Tampilan Sub Menu atau Sub Sub Menu yang telah diberi short cut adalah sbb :
Sumber : dari beberapa sumber
Semoga bermanfaat...
0 komentar