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 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> 没有相关教程
|