用一下方法实现一个控件菜单,不知如果修改菜单的底色,请各位老师帮帮忙啊。Public Declare Function createMenu Lib "user32" Alias "CreateMenu" () As Long
Public Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hmenu As Long) As Long
Public Declare Function InsertMenuItem Lib "user32" Alias "InsertMenuItemA" (ByVal hmenu As Long, ByVal un As Long, ByVal BOOL As Boolean, ByRef lpcMenuItemInfo As MENUITEMINFO) As Long
Public Declare Function GetMenu Lib "user32" (ByVal hmenu As Long) As Long
'Public Declare Function GetSubMenu Lib "user32" (ByVal hmenu As Long, ByVal un As Integer) As Long
Public Declare Function GetMenuItemID Lib "user32" (ByVal hmenu As Long, ByVal un As Integer) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hmenu As Long) As Long
 Public Type MENUITEMINFO
    cbSize As Long
    fMask As Long
    fType As Long
    fState As Long
    wID As Long
    hsubmenu As Long
    hbmpChecked As Long
    hbmpUnchecked As Long
    dwItemData As Long
    dwTypeData As String
    cch As Long
End Type