Putting Bitmaps on 1 or more menu

[kensheehimura1]

good day,

Help pls.. i created a control that will put a bitmap on the menu of my visual basic application, i got a good result but i have one problem, ...because i have 3 menus(File,Edit,Help), but when i run the program only the "File" menu has the bitmap on it, the other 2 menu have not,

Public Sub LoadMenuBitmap()
Dim hMenuBar As Long
Dim hMenu As Long
Dim lngMenuItems As Long
Dim lngCurrMenuItem As Long

hMenuBar = GetMenu(Me.hwnd)

hMenu = GetSubMenu(hMenuBar, 0)

lngMenuItems = GetMenuItemCount(hMenu)

For lngCurrMenuItem = 0 To lngMenuItems - 1
If lngCurrMenuItem <> lngMenuItems - 2 Then
Call SetMenuItemBitmaps(hMenu, lngCurrMenuItem, MF_BYPOSITION, picIndia(lngCurrMenuItem), picIndia(lngCurrMenuItem))
End If
Next lngCurrMenuItem
End Sub

thanks,

 

[wolfert]

I don't know exact how this API stuff works but I think that:

[For lngCurrMenuItem = 0 To lngMenuItems - '1]
tells your program to loop through the menuitems.(=OK)

[If lngCurrMenuItem <> lngMenuItems - 2 Then]
makes it stop at menuitem 0!!!(NOT OK)


Patrick