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

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

本文简介:选择自 goodname008 的 blog

end property

 

public property let itemtextselectcolor(byval ntextselectcolor as long)

    textselectcolor = ntextselectcolor

end property

 

' 属性: 菜单项图标风格

public property get itemiconstyle() as menuitemiconstyle

    itemiconstyle = iconstyle

end property

 

public property let itemiconstyle(byval niconstyle as menuitemiconstyle)

    iconstyle = niconstyle

end property

 

' 属性: 菜单项边框风格

public property get itemselectedgestyle() as menuitemselectedgestyle

    itemselectedgestyle = edgestyle

end property

 

public property let itemselectedgestyle(byval nedgestyle as menuitemselectedgestyle)

    edgestyle = nedgestyle

end property

 

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

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

go top