用VB打造“超酷”个性化菜单_开发者网络_VB_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

用VB打造“超酷”个性化菜单_开发者网络_VB

作者：闵涛文章来源：闵涛的学习笔记点击数：665 更新时间：2009/4/23 15:02:52

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

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

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

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

组件名称属性值 Form Name frmMain Caption 菜单例子 Frame Name fraStyle Caption 菜单风格 Label Name lblHelp Caption 在窗体空白处单击鼠标右键 OptionButton Name opnStyle Caption Window 标准 Index 0 OptionButton Name opnStyle Caption XP 风格 Index 1 OptionButton Name opnStyle Caption 3D 立体风格 Index 2 OptionButton Name opnStyle Caption 渐变风格 Index 3 OptionButton Name opnStyle Caption 多彩风格 Index 4
　　其实就是在窗体上添加了一个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
　Next
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）运行结果：