Icons in menu

[Templar]

Hi, I need to know if there is a way to put an icon next to a menu option you create in vb's menu editor. So if I click on my program's file menu it will give me a drop-down with all the options an beside each option an icon.

Is there a way to do this or am I mad to do something like this???

Thanks in advance.

[Arc]

Yes, its quite simple to put an icon next to a menu item.

Here is but one of many many examples.

'Download the full source+pictures+.. at [url]http://www.allapi.net/php/dlman/dm.cgi?id=bitmenu.zip&action=download[/url]
Private Declare Function GetMenu Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
Const MF_BITMAP = 4
Const MF_CHECKED = 8
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email][email protected][/email]
    Dim hMenu As Long, hSubMenu As Long, lngID As Long
 
    'Get the handle of the form's menu
    hMenu = GetMenu(Me.hWnd)
    'Get the handle of the form's submenu
    hSubMenu = GetSubMenu(hMenu, 0)
 
    'Change first item (index=0)
    picBitmaps(0).Picture = picBitmaps(0).Image
    lngID = GetMenuItemID(hSubMenu, 0)
    Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(0).Picture))
 
    'Change second item (index=1)
    picBitmaps(1).Picture = picBitmaps(1).Image
    lngID = GetMenuItemID(hSubMenu, 1)
    Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(1).Picture))
 
    'Change third item (index=2)
    picBitmaps(2).Picture = picBitmaps(2).Image
    lngID = GetMenuItemID(hSubMenu, 2)
    Call ModifyMenu(hMenu, lngID, MF_BITMAP, lngID, CLng(picBitmaps(2).Picture))
 
    mnuBitmap1.Checked = True
End Sub
Private Sub mnuBitmap1_Click()
    mnuBitmap1.Checked = Not mnuBitmap1.Checked
End Sub
Private Sub mnuBitmapEnd_Click()
    End
End Sub

[Templar]

Hi Arc thanks for your help.

SeeYa
Templar

[winsonlee]

I tried out the code and found out that it can only put icon and not Caption name + Icon. Can i know this problem is due to what reason ????

Help is really appreciated...

[Templar]

Hi Winsonlee, haven't tried the code out yet but will let you know the moment i do and i will see if i can find out how to create an icon+caption.

SeeYa
Templar

[cafeenman]

I was having the same problem last week and finally got it licked. When I used one example I would have an image but not text. I finally found something that worked so that the image would be there along with the text. It would only use bitmaps though. Icons didn't work for some reason.

Anyway, now I can't find what I did with it. I spent the better part of today wiping out a virus and I think I lost that page. When I find it again, if you still don't have an answer I'll post it here for you.

[cafeenman]

I had to download the code again. I just checked it out and it is the code that has both bitmaps and text in the menu. I got it from www.vbcode.com. The zip file is attached intact as it was downloaded.

[Templar]

Thanks cafeenman for all your effort and help.

Templar