VB中用第三方控件打造OfficeXP菜单

2026-03-23

简介： 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
复选框边框颜色