|
众所周知，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，上面只显示一行提示文字，非常简单。
（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）运行结果：
其实，漂亮的界面都是“画”出来的，菜单当然也不例外。既然是“画”出来的，就需要有窗体来接收“画”菜单这个消息，后面我们会看到，实际上不仅仅是“画”这个消息，一切关于这个菜单的消息都要有一个窗体来接收。如果你对消息不太了解，可以看看网上其它一些关于Windows消息机制的文章。不了解也没有关系，只要会使用就可以了，后面的文章给出了完整的源代码，而且文章的最后还给出了源代码的下载地址。
下面我们来创建接收消息的窗体：打开上次建好的工程，添加一个窗体，并将其名称设置为frmMenu（注意：这一步是必须的）。还记得上篇文章的最后一幅图吗？菜单左边那个黑底色的附加条，为了方便，将frmMenu的Picture属性设置成那幅图。到此，这个窗体就算OK了！对了，就这样，因为这个窗体仅仅是为了处理消息和存储那个黑底色的风格条，我们将会对它进行子类处理，处理消息的代码全部都放在了将在下一篇中详细介绍的标准模块中。
接下来添加一个类模块，并将其名称设置为cMenu，代码如下：
'**************************************************************************************************************
'* 本类模块是一个菜单类, 提供了各种样式的菜单的制作方案
'*
'* 版权: LPP软件工作室
'* 作者: 卢培培(goodname008)
'* (******* 复制请保留以上信息 *******)
'**************************************************************************************************************
Option Explicit
Private Declare Function TrackPopupMenu Lib "user32" (ByVal hMenu As Long, ByVal wFlags As Long, ByVal x As Long, ByVal y As Long, ByVal nReserved As Long, ByVal hwnd As Long, lprc As Any) As Long
Public Enum MenuUserStyle ' 菜单总体风格
STYLE_WINDOWS
STYLE_XP
STYLE_SHADE
STYLE_3D
STYLE_COLORFUL
End Enum
Public Enum MenuSeparatorStyle ' 菜单分隔条风格
MSS_SOLID
MSS_DASH
MSS_DOT
MSS_DASDOT
MSS_DASHDOTDOT
MSS_NONE
MSS_DEFAULT
End Enum
Public Enum MenuItemSelectFillStyle ' 菜单项背景填充风格
ISFS_NONE
ISFS_SOLIDCOLOR
ISFS_HORIZONTALCOLOR
ISFS_VERTICALCOLOR
End Enum
Public Enum MenuItemSelectEdgeStyle ' 菜单项边框风格
ISES_SOLID
ISES_DASH
ISES_DOT
ISES_DASDOT
ISES_DASHDOTDOT
ISES_NONE
ISES_SUNKEN
ISES_RAISED
End Enum
Public Enum MenuItemIconStyle ' 菜单项图标风格
IIS_NONE
IIS_SUNKEN
IIS_RAISED
IIS_SHADOW
End Enum
Public Enum MenuItemSelectScope ' 菜单项高亮条的范围
ISS_TEXT = &H1
ISS_ICON_TEXT = &H2
ISS_LEFTBAR_ICON_TEXT = &H4
End Enum
Public Enum MenuLeftBarStyle ' 菜单附加条风格
LBS_NONE
LBS_SOLIDCOLOR
LBS_HORIZONTALCOLOR
&nb | 