Perbedaan Vb 6.0 dan Vb.Net dalam Penambahan Icon Pada Menu Strip

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

3. Tambahkan komponen (CTRL + T) berikut :

  • 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 :
 
 3. Muncul dialog window Select Resource sbb :
 
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…

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s