• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 201
  • 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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

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