简介： VsMenu控件是一款完全可以模仿Office XP和Office 2003的风格菜单控件。

　　使用示例

　　OfficeXP的菜单界面大家都不陌生吧，你也许想在VB开发的程序中，也用上这种非常漂亮的菜单，但是也许为它付出惨重的代价，不是实现方法困难，就是需要写相当多代码，非常的不划算，现在笔者将为你介绍一款适应于所有Windows操作系统、并且全面支持MDI窗口和系统菜单、完全模拟MS OfficeXP及Office2003 风格的菜单控件，就是这样一款您已经找了很久的控件。她是目前所有主流开发工具下零代码轻松实现XP&2003菜单效果。这个示例中我们将使用VsMenu控件打造出一个很酷的OfficeXP菜单。

　　VsMenu控件实现XP和2003效果的过程是不需要我们去关心的，所以它仅仅提供了少许的方法和属性，作为一款相当傻瓜的控件，对控件的设置都可以通过鼠标来完成，不过我们还是介绍一下控件常用的方法、属性和事件。见下表：

方法	说明
Init	初始化窗口
SetBitmaPByCaption	设置菜单项图标
SetCustomAttributes	一次性设置菜单的有关各项属性

　　VsMenu控件常用方法列表

属性	数据类型	说明
BitmapSize	Long	设置菜单显示项的大小
DisplayShadow	Boolean	设置菜单显示是否有阴影
DrawStyle	UcsMenuStyle类型	设置菜单配色方案，是自定义还是默认
RightToLeft	Boolean	反转菜单显示方向
UserCheckBackColour	Variant	复选框颜色
UserCheckBorderColour	Variant	复选框边框颜色
UserGradientOne	OLE_COLOR	第一次渐变色
UserGradientTwo	OLE_COLOR	第二次渐变色
UserMenuBorderColour	OLE_COLOR	菜单边界颜色
UserSelectedItemForeColour	OLE_COLOR	被选菜单文字颜色
UserSelectedMenuBackColour	OLE_COLOR	被选菜单背景颜色
UserSelectedMenuBorderColour	OLE_COLOR	被选菜单的边界颜色
UserSideBarColour	OLE_COLOR	工具条颜色
UserTopMenuBackColour	OLE_COLOR	主菜单背景颜色
UserTopMenuHotBorderColour	OLE_COLOR	主菜单热点边界颜色
UserTopMenuHotColour	OLE_COLOR	主菜单热点颜色
UserTopMenuSelectedColour	OLE_COLOR	展开的主菜单背景颜色
UseSystemFont	Boolean	是否使用系统字体

’设置菜单显示项的大小 ctxVsMenu1.BitmapSize = 24

Private Sub ctxVsMenu1_Highlight(strMenuCaption As String) 　If strMenuCaption = "新建(&N)" Then 　　Msgbox "新建一个文档" 　End If End Sub