How to put a picture in a menu?

[nagarwal]

Hi all:)

I just want to put a picture in a menu list against the menu item i want...
any suggestions? plz let me
Thanx is advance:)

[debasisdas]

There is no direct method to achieve the same.

You need to use API functions.

[nagarwal]

There is no direct method to achieve the same.

You need to use API functions.

hi frnd,

can u plz tell me the API name & it's implementation:)

[debasisdas]

You need to use the following API

Public Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal wIDNewItem As Long, ByVal lpString As Any) As Long
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

[Killer42]

You need to use the following API...

Could you provide a quick sample of how to do it? I'd like to put it in the Articles section.

[debasisdas]

You can try this following sample.

Private Sub Form_Load()
  Picture1.Picture = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Bitmaps\OffCtlBr\Small\Color\CUT.BMP")
  Dim D As Long
  Dim H As Long
  D = CreateCompatibleDC(Picture1.hdc)
  H = CreateCompatibleBitmap(Picture1.hdc, 16, 16)
 
  Dim P As Long
  P = SelectObject(D, H)
  DU = BitBlt(D, 0, 0, 16, 16, Picture1.hdc, 0, 0, &HCC0020)
  DU = SelectObject(D, P)
  D = ModifyMenu(GetSubMenu(GetMenu(Me.hwnd), 0), 0, &H404, 0, H)
End Sub

[Killer42]

What is DU?

Do you work without Option Explicit? If so, I think it's a really bad idea. Makes it much too easy to accidentally slip in non-existent variables.

[debasisdas]

that is also LONG type.


thanx for pointing to the mistake...