VB打造超酷个性化菜单(三)[6]

[入库:2005年8月18日] [更新:2007年3月24日]

本文简介:选择自 goodname008 的 blog

end property

 

' 属性: 菜单项可用时文字颜色

public property get itemtextenabledcolor() as long

    itemtextenabledcolor = textenabledcolor

end property

 

public property let itemtextenabledcolor(byval ntextenabledcolor as long)

    textenabledcolor = ntextenabledcolor

end property

 

' 属性: 菜单项不可用时文字颜色

public property get itemtextdisabledcolor() as long

    itemtextdisabledcolor = textdisabledcolor

end property

 

public property let itemtextdisabledcolor(byval ntextdisabledcolor as long)

    textdisabledcolor = ntextdisabledcolor

end property

 

' 属性: 菜单项选中时文字颜色

public property get itemtextselectcolor() as long

    itemtextselectcolor = textselectcolor

本文关键:VB XP 个性化 风格 菜单
  相关方案
Google
 

本站最佳浏览方式为 分辨率 1024x768 IE 6.0(或更高版本的 IE浏览器)

go top