VB打造超酷个性化菜单（一）

众所周知，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 标准

OptionButton

Name

Caption

Index

opnStyle

XP 风格

OptionButton

Name

Caption

Index

opnStyle

3D 立体风格

OptionButton

Name

Caption

Index

opnStyle

渐变风格

OptionButton

Name

Caption

Index

opnStyle

多彩风格

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

（3）窗体代码：

Option Explicit

Private Declare Function GetCursorPos Lib "user32.dll" (lpPoint As POINTAPI) As Long

Private Type POINTAPI

X As Long

Y As Long

End Type

Dim menu As cMenu

Private Sub Form_Load()

' 初始化菜单并添加菜单项

Set menu = New cMenu

menu.CreateMenu

menu.AddItem "open", LoadPicture("images/open.ico"), "打开", MIT_STRING

menu.AddItem "save", LoadPicture("images/save.ico"), "保存", MIT_STRING

menu.AddItem "print", LoadPicture("images/print.ico"), "打印", MIT_STRING

menu.AddItem "find", LoadPicture("images/find.ico"), "查找", MIT_STRING

menu.AddItem "sep1", LoadPicture(), "", MIT_SEPARATOR

menu.AddItem "undo", LoadPicture("images/undo.ico"), "撤消", MIT_STRING

menu.AddItem "redo", LoadPicture("images/redo.ico"), "重复", MIT_STRING

menu.AddItem "sep2", LoadPicture(), "", MIT_SEPARATOR

menu.AddItem "cut", LoadPicture("images/cut.ico"), "剪切", MIT_STRING

menu.AddItem "copy", LoadPicture("images/copy.ico"), "复制", MIT_STRING

menu.AddItem "paste", LoadPicture("images/paste.ico"), "粘贴", MIT_STRING

menu.AddItem "sep3", LoadPicture(), "", MIT_SEPARATOR

menu.AddItem "check", LoadPicture("images/check.ico"), "一个 CheckBox", MIT_CHECKBOX

menu.AddItem "exit", LoadPicture("images/exit.ico"), "退出", MIT_STRING

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

' 单击鼠标右建弹出菜单

If Button = vbRightButton Then

Dim pos As POINTAPI

GetCursorPos pos

menu.PopupMenu pos.X, pos.Y, POPUP_LEFTALIGN Or POPUP_TOPALIGN

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

' 释放资源, 卸载窗体

Set menu = Nothing

Dim frm As Form

For Each frm In Forms

Unload frm

End Sub

Private Sub opnStyle_Click(Index As Integer)

' 设置菜单风格

Select Case Index

Case 0 ' Windows 标准

menu.Style = STYLE_WINDOWS

Case 1 ' XP 风格

menu.Style = STYLE_XP

Case 2 ' 3D 立体风格

menu.Style = STYLE_3D

Case 3 ' 渐变风格

menu.Style = STYLE_SHADE

Case 4 ' 多彩风格

menu.Style = STYLE_COLORFUL

End Select

End Sub

代码中创建了一个cMenu类的对象，我们的编程重点将会放在cMenu类上，上面的代码只是简单地调用cMenu。在后面的文章中，我们会看到其实cMenu有多达30个方法和属性供我们调用，它的Style属性只提供了5种内置风格，在实际应用中，我们可以利用cMenu类提供的方法和属性制作出各种各样风格的菜单，为自己的程序锦上添花。

（4）运行结果：

这篇文章只是抛砖引玉，让大家先睹为快，提前体验一下这个菜单类的魅力。在下一篇中，我们将继续讨论个性化菜单的制作，不一样的是，我们的重点将是那个cMenu类。 :)

（待续）

VB打造超酷个性化菜单（一）相关推荐

用Joomla!打造超酷博客（Blog）
我们这里要说的不是多用户博客,因为我认为没有必要这样做了:我们已经有了Blogger.新浪博客.搜狐博客.和讯博客--等等专业的多用户博客平台,何必自己从头建造?即使你有那么多精力.那么大服务器空间. ...
PS教程！教你打造超酷炫的德罗斯特效应
编者按:从前有座山,山上有座庙,庙里有个-这类可以无限循环的东西在视觉里叫德罗斯特效应,非常有意思的效果,而且简单易学,今天折葵同学这篇教程不仅有给新手的超简单3步搞定法,而且有效果更酷炫的代码进阶版 ...
ai的预览模式切换_绝对高级！AI打造超酷矩阵纬度文字效果！
完成效果如下在本教程中, 您将学习如何在AI中使用 "偏移路径" 选项, 以及通过 "外观" 面板方法和 "菜单栏" 方法使用它的区别. ...
平面设计背景素材|打造超酷的炫彩光束光效海报！
光效素材背景的作用就是瞬间让我们的设计变的高档.大气.上档次. 适用于高清背景特效.特效合成.平面海报等设计. 更多素材到素材路上 www.sucai63.com 必将带来惊喜效果! 星光点缀数码线条 ...
汉堡式折叠html,3种超酷汉堡包菜单按钮变形动画特效
这是一款使用CSS3和少量jQuery代码来完成的汉堡包菜单按钮变形动画特效.该特效使用CSS3 transition 和 transform 来完成变形动画效果,使用jQuery来触发按钮点击事件. ...
用代码打造超酷炫的粒子特效龙卷风，免费提供完整代码。
是不是很炫酷?别着急嘛,下面就是代码. <html><head> <meta charset="utf-8"> <meta name=&q ...
打造超酷的PHP数据饼图
效果图如下: 源代码: <? //+------------------------+ //| pie3dfun.php//公用函数 | //+------------------------+ ...
经典的PS鼠绘教程：打造超酷的游戏场景
[转自]http://68ps.5d6d.com/thread-12211-1-5.html 最终效果详细教程如下: 1.打透视线,画出想要的构图: 2.将底色改为灰色,并加上阴影: 3.加入火焰和 ...
好看的html导航栏作品,精选10款超酷的HTML5/CSS3菜单
本文作者html5tricks,转载请注明出处今天向大家精选了10款超酷的 1.CSS3手风琴菜单下拉展开带弹性动画利用CSS3技术可以实现各种各样的网页菜单,我们之前也在CSS3菜单栏目中分享 ...

VB打造超酷个性化菜单（一）

VB打造超酷个性化菜单（一）相关推荐

最新文章

热门文章