Menambahkan icon pada menu standar VB

Bagi Anda yang baru belajar VB dan masih menggunakan Menu Editor untuk membuat menu tentu merasa kesulitan untuk menambahkan icon di menu tersebut, karena memang G ada fasilitasnya .

Tapi jangan kuatir setelah meluangkan waktu beberapa menit untuk membaca artikel ini maka Anda akan dengan mudah menambahkan icon pada menu standar VB.

Berikut langkah-langkahnya :

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

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

![](http://coding4ever.files.wordpress.com/2010/02/25022010-3.jpg){: .align-center}

khusus untuk komponen ImageList tambahkan beberapa icon dan jangan lupa mengeset keynya

![](http://coding4ever.files.wordpress.com/2010/02/25022010-4.jpg){: .align-center}

5. Terakhir bagian kode, tambahkan fungsi dan prosedur berikut :

Private Function getIconIndex(ByVal key As String) As Long
    getIconIndex = ImageList1.ListImages.Item(key).Index - 1
End Function

Private Sub setIcon(ByVal key As String, ByVal menuName As String)
    Dim iconIndex As Long

    iconIndex = getIconIndex(key)
    PopMenu1.ItemIcon(menuName) = iconIndex
End Sub

Kemudian tinggal tambahkan kode di event Form_Load seperti berikut :

Private Sub Form_Load()
    With PopMenu1
        .ImageList = ImageList1
        .OfficeXpStyle = True
        .SubClassMenu Me

        Call setIcon("new", "mnuNew")
        Call setIcon("open", "mnuOpen")
        Call setIcon("close", "mnuClose")
        Call setIcon("save", "mnuSave")
        Call setIcon("preview", "mnuPrintPreview")
        Call setIcon("print", "mnuPrint")
        Call setIcon("mail", "mnuMailRecipient")
        Call setIcon("fax", "mnuFaxRecipient")
        Call setIcon("powerpoint", "mnuMicrosoftPowerPoint")
     End With
End Sub

Jalankan program (F5) Anda akan mendapatkan hasil seperti berikut :

Sample program bisa Anda download disini.

Selamat mencoba