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

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

本文简介:选择自 goodname008 的 blog

' 属性: 菜单项边框颜色

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

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

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

go top