'''' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- API 类型声明 -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Public Type DRAWITEMSTRUCT
    CtlType As Long
    CtlID As Long
    itemID As Long
    itemAction As Long
    itemState As Long
    hwndItem As Long
    hdc As Long
    rcItem As RECT
    itemData As Long
End Type

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

Public Type MEASUREITEMSTRUCT
    CtlType As Long
    CtlID As Long
    itemID As Long
    itemWidth As Long
    itemHeight As Long
    itemData As Long
End Type

Public Type Size
    cx As Long
    cy As Long
End Type

'''' 自定义菜单项数据结构
Public Type MyMenuItemInfo
    itemIcon As StdPicture
    itemAlias As String
    itemText As String
    itemType As MenuItemType
    itemState As MenuItemState
End Type

'''' 菜单相关结构
Private MeasureInfo As MEASUREITEMSTRUCT
Private DrawInfo As DRAWITEMSTRUCT

Public hMenu As Long
Public preMenuWndProc As Long
Public MyItemInfo() As MyMenuItemInfo

'''' 菜单类属性
Public BarWidth As Long                             '''' 菜单附加条宽度
Public BarStyle As MenuLeftBarStyle                 '''' 菜单附加条风格
Public BarImage As StdPicture                       '''' 菜单附加条图像
Public BarStartColor As Long                        '''' 菜单附加条过渡色起始颜色
Public BarEndColor As Long                          '''' 菜单附加条过渡色终止颜色
Public SelectScope As MenuItemSelectScope           '''' 菜单项高亮条的范围
Public TextEnabledColor As Long                     '''' 菜单项可用时文字颜色
Public TextDisabledColor As Long                    '''' 菜单项不可用时文字颜色
Public TextSelectColor As Long                      '''' 菜单项选中时文字颜色
Public IconStyle As MenuItemIconStyle               '''' 菜单项图标风格
Public EdgeStyle As MenuItemSelectEdgeStyle         '''' 菜单项边框风格
Public EdgeColor As Long                            '''' 菜单项边框颜色
Public FillStyle As MenuItemSelectFillStyle         '''' 菜单项背景填充风格
Public FillStartColor As Long                       '''' 菜单项过渡色起始颜色
Public FillEndColor As Long                         '''' 菜单项过渡色终止颜色
Public BkColor As Long                              '''' 菜单背景颜色
Public SepStyle As MenuSeparatorStyle               '''' 菜单分隔条风格
Public SepColor As Long                             '''' 菜单分隔条颜色
Public MenuStyle As MenuUserStyle                   '''' 菜单总体风格

（待续）

相关链接：

VB打造超酷个性化菜单（一）

VB打造超酷个性化菜单（二）

VB打造超酷个性化菜单（三）

VB打造超酷个性化菜单（四）

VB打造超酷个性化菜单（五）

VB打造超酷个性化菜单（六）

上一页  [1] [2] [3] [4]