Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 200
  • Last Modified:

menus

how to give icon to user created menus?
0
avbreddy
Asked:
avbreddy
1 Solution
 
jetforceCommented:
Have a look at www.VBAccelerator.com there is a control which allows you to do this and also it gives you more options. You will also find more great controls there.

Hope this helps
0
 
kartonoCommented:
To display the picture, use the setMenuItemBitmaps (API Functions), in the following steps :
1. Take the menu handle from the form
2. Get the submenu handle.
3. Set the bitmap for the specified item
   in the position. For this sample, use
   the picture control. According to
   the MSDN, it's better to use
   monochrome


Here is the sample code

'DECLARE THE GETMENU ITEM, THIS WILL GET THE MENU HANDLE FROM YOUR FORM

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

'THIS FUNCTION WILL RETRIEVE THE SUBMENU OF THE SPECIFIED MENU

Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long

'API CONSTANT, WHICH SPECIFIES THE YOU WANT TO ACCESS THE SUBMENU BY POSITION

Private Const MF_BYPOSITION = &H400&

Private Sub GiveIcon
   dim mHDC as long
   dim msHDC as long
   dim pHDC as long

  'ME.HWND REFERS TO YOUR FORM HWND PROPERTY, RETURN ACTIVE MENU HANDLE
    mHDC = GetMenu(Me.hwnd)

  'GET SUBMENU FROM THE ACTIVE MENU
    msHDC = GetSubMenu(mHDC, 0)
  'GET THE HANDLE FROM PICTURE
    pHDC = myPic.Picture.Handle

  'SET THE MENU ITEM BITMAPS FOR THE
  'FIRST ITEM IN SUBMENU  
    lRet = SetMenuItemBitmaps(msHDC, 0, MF_BYPOSITION, pHDC, pHDC)

End Sub

Hope that helps

cheers

KN
0

Featured Post

Become an Android App Developer

Ready to kick start your career in 2018? Learn how to build an Android app in January’s Course of the Month and open the door to new opportunities.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now