hi all,
popup menu doesn't work after i added bitmaps to it
any solutions ?
waiting for F.B
thanx on advance
Printable View
hi all,
popup menu doesn't work after i added bitmaps to it
any solutions ?
waiting for F.B
thanx on advance
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!
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
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
btw
TrackPopupMenu gives you your !*Pop*!
td.
thanx all,
i found the problem and it's fixed now
thanx again