As MenuItemSelectEdgeStyle) EdgeStyle = nEdgeStyle End Property '''' 属性: 菜单项边框颜色 Public Property Get ItemSelectEdgeColor() As Long ItemSelectEdgeColor = EdgeColor End Property Public Property Let ItemSelectEdgeColor(ByVal nEdgeColor As Long) EdgeColor = nEdgeColor End Property '''' 属性: 菜单项背景填充风格 Public Property Get ItemSelectFillStyle() As MenuItemSelectFillStyle ItemSelectFillStyle = FillStyle End Property Public Property Let ItemSelectFillStyle(ByVal nFillStyle As MenuItemSelectFillStyle) FillStyle = nFillStyle End Property '''' 属性: 菜单项过渡色起始颜色(只有当 ItemSelectFillStyle 设置为 ISFS_HORIZONTALCOLOR 或 ISFS_VERTICALCOLOR 时才有效) '''' 当 ItemSelectFillStyle 设置为 ISFS_SOLIDCOLOR (实色填充)时以 ItemSelectFillStartColor 颜色为准 Public Property Get ItemSelectFillStartColor() As Long ItemSelectFillStartColor = FillStartColor End Property Public Property Let ItemSelectFillStartColor(ByVal nFillStartColor As Long) FillStartColor = nFillStartColor End Property '''' 属性: 菜单项过渡色终止颜色(只有当 ItemSelectFillStyle 设置为 ISFS_HORIZONTALCOLOR 或 ISFS_VERTICALCOLOR 时才有效) '''' 当 ItemSelectFillStyle 设置为 ISFS_SOLIDCOLOR (实色填充)时以 ItemSelectFillStartColor 颜色为准 Public Property Get ItemSelectFillEndColor() As Long ItemSelectFillEndColor = FillEndColor End Property Public Property Let ItemSelectFillEndColor(ByVal nFillEndColor As Long) FillEndColor = nFillEndColor End Property '''' 属性: 菜单背景颜色 Public Property Get BackColor() As Long BackColor = BkColor End Property Public Property Let BackColor(ByVal nBkColor As Long) BkColor = nBkColor End Property '''' 属性: 菜单分隔条风格 Public Property Get SeparatorStyle() As MenuSeparatorStyle SeparatorStyle = SepStyle End Property Public Property Let SeparatorStyle(ByVal nSepStyle As MenuSeparatorStyle) SepStyle = nSepStyle End Property '''' 属性: 菜单分隔条颜色 Public Property Get SeparatorColor() As Long SeparatorColor = SepColor End Property Public Property Let SeparatorColor(ByVal nSepColor As Long) SepColor = nSepColor End Property '''' 属性: 菜单总体风格 Public Property Get Style() As MenuUserStyle Style = MenuStyle End Property Public Property Let Style(ByVal nMenuStyle As MenuUserStyle) MenuStyle = nMenuStyle Select Case nMenuStyle Case STYLE_WINDOWS '''' Windows 默认风格 Set BarImage = LoadPicture() BarWidth = 20 上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页 没有相关教程
|