How to associate Icons w/ menu commands??

[mikef]

Anyone know how to display an icon to the left of a Menu command. I want to associate the same icons that are on my toolbar with the items on the actual pull-down menus.

Thank GOD it's Friday......my brain is fried from this week!!!!!

Try this. Make a Form with a CommandButton and an ImageList and put the following code into it. Make sure you have an Image loaded in the ImageList.

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long
Const MF_BITMAP = &H4&

Private Sub Command1_Click()

    Dim hMenu As Long, hSub As Long, ItemID As Long
    hMenu = GetMenu(Me.hwnd)
    hSub = GetSubMenu(hMenu, 0)
    ItemID = GetMenuItemID(hSub, 0)
    SetMenuItemBitmaps hMenu, ItemID, MF_BITMAP, ImageList1.ListImages(1).Picture, ImageList1.ListImages(1).Picture

End Sub

[FrancisC]

You can also check out the tutorial from Karl Moore...

http://www.vb-world.net/api/winapi2/