|
VB打造超酷個性化菜單（一）
眾所周知，MS Office 2003推出已經(jīng)有一段時間了，但我們依然不會忘記Office XP剛剛推出時其令人耳目一新的菜單給我們留下的深刻印象。突起的懸浮式圖標，不同尋常的菜單項填充方式，不僅讓辦公一族們贊不絕口，更讓廣大的程序員和編程愛好者對這種風格的菜單的制作產(chǎn)生了濃厚的興趣。所以，在這篇文章里，我們就來好好地研究研究用VB怎么制作這種風格的菜單，在文章的最后，我將給出源代碼的下載地址。事實上，在了解其原理以后，不論是用VB、VC還是Delphi，都能夠制作出XP風格的菜單。不僅如此，我們還可以制作出更加充滿個性的另類風格的菜單，比如3D立體風格、漸變風格、多彩風格等等。只有想不到的，沒有做不到的。Follow me！
現(xiàn)在，我想有必要說一說我們現(xiàn)在要做的事情。事實上，我們只要做一個菜單類就行了。但誰都會明白，只做一個菜單類是不夠的，我們需要一個程序，或者更詳細的說，是一個窗體，來測試我們的菜單類。在我個人的開發(fā)過程中，我是先寫的菜單類，后寫的測試窗體，但為了讓大家先領略一下寫好的菜單類在應用時是多么的方便，所以讓我們先來看看測試窗體：
（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控件數(shù)組，用來設置菜單風格，還有一個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
代碼中創(chuàng)建了一個cMenu類的對象，我們的編程重點將會放在cMenu類上，上面的代碼只是簡單地調(diào)用cMenu。在后面的文章中，我們會看到其實cMenu有多達30個方法和屬性供我們調(diào)用，它的Style屬性只提供了5種內(nèi)置風格，在實際應用中，我們可以利用cMenu類提供的方法和屬性制作出各種各樣風格的菜單，為自己的程序錦上添花。
（4）運行結(jié)果：
這篇文章只是拋磚引玉，讓大家先睹為快，提前體驗一下這個菜單類的魅力。在下一篇中，我們將繼續(xù)討論個性化菜單的制作，不一樣的是，我們的重點將是那個cMenu類。 :)
<>
|
