• 丰搜首页
• 文档中心
• 视频中心
• 丰搜贴吧
• 问题集锦
• 更多功能

选择显示字体大小

• 最大
• 较大
• 标准

vb中用第三方控件打造office xp菜单

　　简介： 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	是否使用系统字体

　　vsmenu控件常用属性列表

事件	说明
highlight	移入菜单事件，与按钮的移入、移出事件类似
customdrawitemfont	菜单项自绘字体设置
customdrawitemhoverfont	当鼠标移入或用键盘选中某菜单项时该菜单项的自绘字体设置

　　vsmenu控件常用事件列表


　　下面我们将介绍该控件的用法。

　　第一步：首先启动visual basic 6.0，新建一个窗体，然后用工程中的菜单编辑器向窗体添加菜单

　　第二步：加载vsmenu控件；在控件工具栏中单击右键，选择“部件”，在弹出的窗口中点击“浏览”，找到vsmenu控件，载入它；把它添加到窗体中任意位置即可，这个时候，你就会发现，窗体的菜单已经发生了变化，已经变成了officexp风格的菜单了。

　　你可以按f5键运行该程序查看程序运行效果了，下面我们将介绍如何更改该控件的一些设置。

　　第三步：设置vsmenu控件。

　　该控件的设置相当简单，它提供了一个属性页帮助开发者进行控件的设定。点中vsmenu控件，按下shift+f4组合键便会弹出该控件的属性页，如下图：



　　在该属性页内可以设置菜单项图标、样式以及菜单大小等等属性。在“自定义菜单颜色”的页内，提供了一套office2003风格菜单的配色方案，可以通过设定“绘制样式”中的属性改变菜单样式，如下图所示，你也可以根据需要自己编写配色方案。



　　在字体页内可以设置菜单中字体大小，这个功能需禁用“使用系统字体功能”

　　第三步：在程序中动态设置vsmenu控件。

　　我们可以通过控件提供的方法、属性和事件来控制它，下面我们就举几个简单的例子。

’设置菜单默认风格 ctxvsmenu1.drawstyle = ms_默认

’设置菜单自定义风格 ctxvsmenu1.drawstyle = ms_自定义

’设置菜单显示项的大小 ctxvsmenu1.bitmapsize = 24

private sub ctxvsmenu1_highlight(strmenucaption as string) 　if strmenucaption = "新建(&n)" then 　　msgbox "新建一个文档" 　end if end sub

 

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

标准 网站致力的规范