popup menu doesn't work

[Ahmed Walid]

hi all,

popup menu doesn't work after i added bitmaps to it

any solutions ?

waiting for F.B

thanx on advance

[ShIzO]

did you use standart microsoft popup menu or some custom activex control?

visit www.vbaccelerator.com they got some great FREE controls including a POPUP control with bitmap option as well as background, dude!

[dealman]

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 GetMenuItemID 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


Private Sub Form_Load()
Dim lngMenu As Long
Dim lngSubMenu As Long
Dim lngMenuItemID As Long
Dim lngRet As Long

lngMenu = GetMenu(Form1.hwnd)

lngSubMenu = GetSubMenu(lngMenu, 0)

lngMenuItemID = GetMenuItemID(lngSubMenu, 0)

lngRet = SetMenuItemBitmaps(lngMenu, lngMenuItemID, 0, _
Picture1.Picture, Picture1.Picture)

End Sub

[jonaxse]

Yeah, if you are into the Win32 API stuff to 'soup up' yer programs, you might as well get yer butt to http://www.vbaccelerator.com

they got lots of pretty impressive stuff for free.

Jonn

[tumblingdown]

btw

TrackPopupMenu gives you your !*Pop*!



td.

[Ahmed Walid]

thanx all,
i found the problem and it's fixed now
thanx again