Introduction
Here I am again, with other programming trick. VB doesn't provide any support for icons in the menus (VB 6 and previous). Then, to accomplish such a task, it is necessary to run over to call native API of Windows.
Purpose
Some programmers say that is unnecessary. But it is common for the users to use the toolbar in most of the cases. It is interesting that they can associate the menu options to the entrances in the toolbar.
For an application to be easy to use, it should be the most friendliest possible and not demand complex reasoning of the user.
The people use computers to activate your tasks and to win time.
The Road of the Stones
The best way to accomplish this task would be with a visual atmosphere where you could choose in the list of available menus, the item of wanted menu and in others (parallel), the wanted icon (that is made by other tools).
However, I will teach the less friendly, however functional way of making it.
API
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 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_BYPOSITION = &H400&
Code Piece
Private Sub SetMenuIcon()
On Error Resume Next
Dim hMenu As Long
Dim hSubMenu As Long
Dim Ret As Long
hMenu = GetMenu(hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
Ret = SetMenuItemBitmaps(hSubMenu, 0, MF_BYPOSITION, iNew.Picture, iNew.Picture)
Ret = SetMenuItemBitmaps(hSubMenu, 1, MF_BYPOSITION, iOpen.Picture, iOpen.Picture)
Ret = SetMenuItemBitmaps(hSubMenu, 2, MF_BYPOSITION, iSave.Picture, iSave.Picture)
Ret = SetMenuItemBitmaps(hSubMenu, 4, MF_BYPOSITION, iSave.Picture, iSave.Picture)
Ret = SetMenuItemBitmaps(hSubMenu, 6, MF_BYPOSITION, iExit.Picture, iExit.Picture)
End Sub
The icon may be 14x15 pixels.
If you have some doubt or suggestions, send me an email.
Contact Details
E-mail: willians@bb.com.br
MSN: willian_cpp_br@hotmail.com
ICQ# 89506722
Phone: +55 (64) 612-6030
Fax: +55 (64) 612-6010
History
- 15th April, 2004: Initial post