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

VB打造超酷个性化菜单（三） (接上篇) ' 设置菜单项状态Public Sub SetItemState(ByVal itemAlias As String, ByVal itemState As MenuItemState) Dim i As Long For i = 0 To UBound(MyItemInfo) If MyItemInfo(i).itemAlias = itemAlias Then MyItemInfo(i).itemState = itemState Dim ItemInfo As MENUITEMINFO With ItemInfo .cbSize = Len(ItemInfo) .fMask = MIIM_STRING Or MIIM_FTYPE Or MIIM_STATE Or MIIM_SUBMENU Or MIIM_ID Or MIIM_DATA End With GetMenuItemInfo hMenu, i, False, ItemInfo With ItemInfo .fState = .fState Or itemState End With SetMenuItemInfo hMenu, i, False, ItemInfo Exit For End If Next iEnd Sub ' 获得菜单项状态Public Function GetItemState(ByVal itemAlias As String) As MenuItemState Dim i As Long For i = 0 To UBound(MyItemInfo) If MyItemInfo(i).itemAlias = itemAlias Then GetItemState = MyItemInfo(i).itemState Exit For End If Next iEnd Function ' 属性: 菜单句柄Public Property Get hwnd() As Long hwnd = hMenuEnd Property Public Property Let hwnd(ByVal nValue As Long) End Property ' 属性: 菜单附加条宽度Public Property Get LeftBarWidth() As Long LeftBarWidth = BarWidthEnd Property Public Property Let LeftBarWidth(ByVal nBarWidth As Long) If nBarWidth >= 0 Then BarWidth = nBarWidth End IfEnd Property ' 属性: 菜单附加条风格Public Property Get LeftBarStyle() As MenuLeftBarStyle LeftBarStyle = BarStyleEnd Property Public Property Let LeftBarStyle(ByVal nBarStyle As MenuLeftBarStyle) If nBarStyle >= 0 And nBarStyle <= 4 Then BarStyle = nBarStyle End IfEnd Property ' 属性: 菜单附加条图像(只有当 LeftBarStyle 设置为 LBS_IMAGE 时才有效)Public Property Get LeftBarImage() As StdPicture Set LeftBarImage = BarImageEnd Property Public Property Let LeftBarImage(ByVal nBarImage As StdPicture) Set BarImage = nBarImageEnd Property ' 属性: 菜单附加条过渡色起始颜色(只有当 LeftBarStyle 设置为 LBS_HORIZONTALCOLOR 或 LBS_VERTICALCOLOR 时才有效)' 当 LeftBarStyle 设置为 LBS_SOLIDCOLOR (实色填充)时以 LeftBarStartColor 颜色为准Public Property Get LeftBarStartColor() As Long LeftBarStartColor = BarStartColorEnd Property Public Property Let LeftBarStartColor(ByVal nBarStartColor As Long) BarStartColor = nBarStartColorEnd Property ' 属性: 菜单附加条过渡色终止颜色(只有当 LeftBarStyle 设置为 LBS_HORIZONTALCOLOR 或 LBS_VERTICALCOLOR 时才有效)' 当 LeftBarStyle 设置为 LBS_SOLIDCOLOR (实色填充)时以 LeftBarStartColor 颜色为准Public Property Get LeftBarEndColor() As Long LeftBarEndColor = BarEndColorEnd Property Public Property Let LeftBarEndColor(ByVal nBarEndColor As Long) BarEndColor = nBarEndColorEnd Property ' 属性: 菜单项高亮条的范围Public Property Get ItemSelectScope() As MenuItemSelectScope ItemSelectScope = SelectScopeEnd Property Public Property Let ItemSelectScope(ByVal nSelectScope As MenuItemSelectScope) SelectScope = nSelectScopeEnd Property ' 属性: 菜单项可用时文字颜色Public Property Get ItemTextEnabledColor() As Long ItemTextEnabledColor = TextEnabledColorEnd Property Public Property Let ItemTextEnabledColor(ByVal nTextEnabledColor As Long) TextEnabledColor = nTextEnabledColorEnd Property ' 属性: 菜单项不可用时文字颜色Public Property Get ItemTextDisabledColor() As Long ItemTextDisabledColor = TextDisabledColorEnd Property Public Property Let ItemTextDisabledColor(ByVal nTextDisabledColor As Long) TextDisabledColor = nTextDisabledColorEnd Property ' 属性: 菜单项选中时文字颜色Public Property Get ItemTextSelectColor() As Long ItemTextSelectColor = TextSelectColorEnd Property Public Property Let ItemTextSelectColor(ByVal nTextSelectColor As Long) TextSelectColor = nTextSelectColorEnd Property ' 属性: 菜单项图标风格Public Property Get ItemIconStyle() As MenuItemIconStyle ItemIconStyle = IconStyleEnd Property Public Property Let ItemIconStyle(ByVal nIconStyle As MenuItemIconStyle) IconStyle = nIconStyleEnd Property ' 属性: 菜单项边框风格Public Property Get ItemSelectEdgeStyle() As MenuItemSelectEdgeStyle ItemSelectEdgeStyle = EdgeStyleEnd Property Public Property Let ItemSelectEdgeStyle(ByVal nEdgeStyle As MenuItemSelectEdgeStyle) EdgeStyle = nEdgeStyleEnd Property ' 属性: 菜单项边框颜色Public Property Get ItemSelectEdgeColor() As Long ItemSelectEdgeColor = EdgeColorEnd Property Public Property Let ItemSelectEdgeColor(ByVal nEdgeColor As Long) EdgeColor = nEdgeColorEnd Property ' 属性: 菜单项背景填充风格Public Property Get ItemSelectFillStyle() As MenuItemSelectFillStyle ItemSelectFillStyle = FillStyleEnd Property Public Property Let ItemSelectFillStyle(ByVal nFillStyle As MenuItemSelectFillStyle) FillStyle = nFillStyleEnd Property ' 属性: 菜单项过渡色起始颜色(只有当 ItemSelectFillStyle 设置为 ISFS_HORIZONTALCOLOR 或 ISFS_VERTICALCOLOR 时才有效)' 当 ItemSelectFillStyle 设置为 ISFS_SOLIDCOLOR (实色填充)时以 ItemSelectFillStartColor 颜色为准Public Property Get ItemSelectFillStartColor() As Long ItemSelectFillStartColor = FillStartColorEnd Property Public Property Let ItemSelectFillStartColor(ByVal nFillStartColor As Long) FillStartColor = nFillStartColorEnd Property ' 属性: 菜单项过渡色终止颜色(只有当 ItemSelectFillStyle 设置为 ISFS_HORIZONTALCOLOR 或 ISFS_VERTICALCOLOR 时才有效)' 当 ItemSelectFillStyle 设置为 ISFS_SOLIDCOLOR (实色填充)时以 ItemSelectFillStartColor 颜色为准Public Property Get ItemSelectFillEndColor() As Long ItemSelectFillEndColor = FillEndColorEnd Property Public Property Let ItemSelectFillEndColor(ByVal nFillEndColor As Long) FillEndColor = nFillEndColorEnd Property ' 属性: 菜单背景颜色Public Property Get BackColor() As Long BackColor = BkColorEnd Property Public Property Let BackColor(ByVal nBkColor As Long) BkColor = nBkColorEnd Property ' 属性: 菜单分隔条风格Public Property Get SeparatorStyle() As MenuSeparatorStyle SeparatorStyle = SepStyleEnd Property Public Property Let SeparatorStyle(ByVal nSepStyle As MenuSeparatorStyle) SepStyle = nSepStyleEnd Property ' 属性: 菜单分隔条颜色Public Property Get SeparatorColor() As Long SeparatorColor = SepColorEnd Property Public Property Let SeparatorColor(ByVal nSepColor As Long) SepColor = nSepColorEnd Property （待续） 相关链接：VB打造超酷个性化菜单（一）VB打造超酷个性化菜单（二）VB打造超酷个性化菜单（三）VB打造超酷个性化菜单（四）VB打造超酷个性化菜单（五）VB打造超酷个性化菜单（六）