Iran Developers Network

Public Declare Function GetMenu Lib “user32″ (ByVal hwnd As Long) As Long

Public Declare Function GetSubMenu Lib “user32″ (ByVal hMenu As Long, ByVal nPos As Long) As Long

Public Declare Function GetMenuItemID Lib “user32″ (ByVal hMenu As Long, ByVal nPos As Long) As Long

Public 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

برای قرار دادن یک آیکون در کنار یکی از آیتمهای منو نیاز به handle فرم ، شماره منو ، شماره آیتم مورد نظر و نیز یک picture داریم :

Public Function SetMenuIcon(FrmHwnd As Long, MainMenuNumber As Long, MenuItemNumber As Long, Flags As Long, BitmapUncheckedHandle As Long, BitmapCheckedHandle As Long)x
Dim lngMenu As Long
Dim lngSubMenu As Long
Dim lngMenuItemID As Long
lngMenu = GetMenu(FrmHwnd)x
lngSubMenu = GetSubMenu(lngMenu, MainMenuNumber)x
lngMenuItemID = GetMenuItemID(lngSubMenu, MenuItemNumber)x
,SetMenuIcon = SetMenuItemBitmaps(lngMenu, lngMenuItemID, Flags
BitmapUncheckedHandle, BitmapCheckedHandle)x
End Function

image های مورد نظر خود را با ابعادی حدود ۱۶*۱۶ پیکسل و بصورت PictureBox در فرم خود قرار دهید و خاصیت Visible مربوط به PictureBox ها را False کنید .
سپس منوهای خود را توسط Menu Editor طراحی کنید .

File و Edit منوهای اصلی هستند . پارامتر MainMenuNumber در تابع فوق شماره منوی اصلی است که برای File برابر صفر و برای Edit برابر یک می باشد . پارامتر MenuItemNumber شماره هر آیتم در یک منو است که این پارامتر نیز از صفر شروع می شود .
اکنون برای اضافه کردن سه آیکون به سه آیتم منوی File کدهای زیر را در Form_Load بنویسید :

Private Sub Form_Load()x
SetMenuIcon Me.hwnd, 0, 0, 0, pic1.Picture, pic1.Picture
SetMenuIcon Me.hwnd, 0, 1, 0, pic2.Picture, pic2.Picture
SetMenuIcon Me.hwnd, 0, 2, 0, pic3.Picture, pic3.Picture