VB打造超酷个性化菜单(2)
|
日期：2007年7月27日 作者： 查看:[大字体
中字体 小字体]
|
BarEndColor = BarStartColor
SelectScope = ISS_TEXT
TextEnabledColor = GetSysColor(COLOR_MENUTEXT)
TextDisabledColor = GetSysColor(COLOR_GRAYTEXT)
TextSelectColor = vbBlue
IconStyle = IIS_RAISED
EdgeStyle = ISES_SUNKEN
EdgeColor = GetSysColor(COLOR_HIGHLIGHT)
FillStyle = ISFS_NONE
FillStartColor = EdgeColor
FillEndColor = FillStartColor
BkColor = GetSysColor(COLOR_MENU)
SepColor = TextDisabledColor
SepStyle = MSS_DEFAULT
Case STYLE_COLORFUL ' 炫彩风格
Set BarImage = frmMenu.Picture
BarWidth = 20
BarStyle = LBS_IMAGE
BarStartColor = GetSysColor(COLOR_MENU)
BarEndColor = BarStartColor
SelectScope = ISS_ICON_TEXT
上一篇:VB打造超酷个性化菜单(3)
下一篇:VB打造超酷个性化菜单(1)
|
| VB打造超酷个性化菜单(2) 相关文章： |
|
|
|
| VB打造超酷个性化菜单(2) 相关软件： |
|
|
|
精品推荐