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

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 ）运行结果：

Windows 标准