Advertisement
2002C Miscellaneous #9505

Another way to place images within menu

Places images in the menu

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source
'	Add one form to the project.
'	Add a picturebox (Autosize = True) with a bitmap (not an icon!!!), max. 13X13
'	Add a commandbutton with following code:
Private Sub Form_Load()
hMenu& = GetMenu(Form1.hwnd)
hSubMenu& = GetSubMenu(hMenu&, 0)
hID& = GetMenuItemID(hSubMenu&, 0)
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, _
Picture1.Picture, _
Picture1.Picture
End Sub  
Original Comments (3)
Recovered from Wayback Machine