VB中，在按钮的下拉菜单项前，如何加上图标？

Question

你可以到网上去找找，不过用VB做出来的很难看！http://www.vbeden.net/bar_on_top.htm

Answer 1

仅供参考
Option ExplicitPrivate Declare Function GetMenu Lib "user32" _
   (ByVal hwnd As Long) As LongPrivate Declare Function GetSubMenu Lib "user32" _
   (ByVal hMenu As Long, ByVal nPos As Long) As LongPrivate 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 LongConst MF_BYPOSITION = &H400&Public Sub SetPicMenu()
    Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long
    mHandle = GetMenu(frmMain.hwnd)
    sHandle = GetSubMenu(mHandle, 3)
    sHandle2 = GetSubMenu(sHandle, 0)
    lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, frmMain.Picture3.Picture, frmMain.Picture3.Picture) 'javac
    lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, frmMain.Picture1.Picture, frmMain.Picture1.Picture) 'javac
    lRet = SetMenuItemBitmaps(sHandle2, 1, MF_BYPOSITION, frmMain.Picture1.Picture, frmMain.Picture1.Picture) '
    lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, frmMain.Picture2.Picture, frmMain.Picture2.Picture) 'appletviewer
    lRet = SetMenuItemBitmaps(sHandle, 5, MF_BYPOSITION, frmMain.Picture4.Picture, frmMain.Picture4.Picture) 'java
    lRet = SetMenuItemBitmaps(sHandle, 2, MF_BYPOSITION, frmMain.Picture3.Picture, frmMain.Picture3.Picture)
    'sHandle = GetSubMenu(mHandle, 1)
    'sHandle2 = GetSubMenu(sHandle, 0)
    'lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)End Sub

Answer 2

VB自带的Toolbar不能设置下拉菜单的图标
用其他控件吧

Answer 3

Sax Smart Ui 
好象可以

Answer 4

我可以给你发一个类似vc的菜单
[email protected]