众所周知，MS Office 2003推出已经有一段时间了，但我们依然不会忘记Office XP刚刚推出时其令人耳目一新的菜单给我们留下的深刻印象。突起的悬浮式图标，不同寻常的菜单项填充方式，不仅让办公一族们赞不绝口，更让广大的程序员和编程爱好者对这种风格的菜单的制作产生了浓厚的兴趣。所以，在这篇文章里，我们就来好好地研究研究用VB怎么制作这种风格的菜单，在文章的最后，我将给出源代码的下载地址。事实上，在了解其原理以后，不论是用VB、VC还是Delphi，都能够制作出XP风格的菜单。不仅如此，我们还可以制作出更加充满个性的另类风格的菜单，比如3D立体风格、渐变风格、多彩风格等等。只有想不到的，没有做不到的。Follow me！

　　现在，我想有必要说一说我们现在要做的事情。事实上，我们只要做一个菜单类就行了。但谁都会明白，只做一个菜单类是不够的，我们需要一个程序，或者更详细的说，是一个窗体，来测试我们的菜单类。在我个人的开发过程中，我是先写的菜单类，后写的测试窗体，但为了让大家先领略一下写好的菜单类在应用时是多么的方便，所以让我们先来看看测试窗体：

　　（1）打开VB，新建“标准EXE”工程。

　　（2）­­下面是窗体的控件：

组件名称	属性	值
Form	Name Caption	frmMain 菜单例子
Frame	Name Caption	fraStyle 菜单风格
Label	Name Caption	lblHelp 在窗体空白处单击鼠标右键
OptionButton	Name Caption Index	opnStyle Window 标准 0
OptionButton	Name Caption Index	opnStyle XP 风格 1
OptionButton	Name Caption Index	opnStyle 3D 立体风格 2
OptionButton	Name Caption Index	opnStyle 渐变风格 3
OptionButton	Name Caption Index	opnStyle 多彩风格 4

　　其实就是在窗体上添加了一个Frame，然后在Frame里添加OptionButton控件数组，用来设置菜单风格，还有一个Label，上面只显示一行提示文字，非常简单。

发给好友

我要报错

投稿给我们

加入收藏

返回顶部