|
VB打造超酷個(gè)性化菜單（一）
眾所周知，MS Office 2003推出已經(jīng)有一段時(shí)間了，但我們依然不會(huì)忘記Office XP剛剛推出時(shí)其令人耳目一新的菜單給我們留下的深刻印象。突起的懸浮式圖標(biāo)，不同尋常的菜單項(xiàng)填充方式，不僅讓辦公一族們贊不絕口，更讓廣大的程序員和編程愛好者對(duì)這種風(fēng)格的菜單的制作產(chǎn)生了濃厚的興趣。所以，在這篇文章里，我們就來好好地研究研究用VB怎么制作這種風(fēng)格的菜單，在文章的最后，我將給出源代碼的下載地址。事實(shí)上，在了解其原理以后，不論是用VB、VC還是Delphi，都能夠制作出XP風(fēng)格的菜單。不僅如此，我們還可以制作出更加充滿個(gè)性的另類風(fēng)格的菜單，比如3D立體風(fēng)格、漸變風(fēng)格、多彩風(fēng)格等等。只有想不到的，沒有做不到的。Follow me！
現(xiàn)在，我想有必要說一說我們現(xiàn)在要做的事情。事實(shí)上，我們只要做一個(gè)菜單類就行了。但誰(shuí)都會(huì)明白，只做一個(gè)菜單類是不夠的，我們需要一個(gè)程序，或者更詳細(xì)的說，是一個(gè)窗體，來測(cè)試我們的菜單類。在我個(gè)人的開發(fā)過程中，我是先寫的菜單類，后寫的測(cè)試窗體，但為了讓大家先領(lǐng)略一下寫好的菜單類在應(yīng)用時(shí)是多么的方便，所以讓我們先來看看測(cè)試窗體：
（1）打開VB，新建“標(biāo)準(zhǔn)EXE”工程。
（2）­­下面是窗體的控件：
組件名稱
屬性
值
Form
Name
Caption
frmMain
菜單例子
Frame
Name
Caption
fraStyle
菜單風(fēng)格
Label
Name
Caption
lblHelp
在窗體空白處單擊鼠標(biāo)右鍵
OptionButton
Name
Caption
Index
opnStyle
Window 標(biāo)準(zhǔn)
0
OptionButton
Name
Caption
Index
opnStyle
XP 風(fēng)格
1
OptionButton
Name
Caption
Index
opnStyle
3D 立體風(fēng)格
2
OptionButton
Name
Caption
Index
opnStyle
漸變風(fēng)格
3
OptionButton
Name
Caption
Index
opnStyle
多彩風(fēng)格
4
其實(shí)就是在窗體上添加了一個(gè)Frame，然后在Frame里添加OptionButton控件數(shù)組，用來設(shè)置菜單風(fēng)格，還有一個(gè)Label，上面只顯示一行提示文字，非常簡(jiǎn)單。
（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()
' 初始化菜單并添加菜單項(xiàng)
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"), "重復(fù)", MIT_STRING
menu.AddItem "sep2", LoadPicture(), "", MIT_SEPARATOR
menu.AddItem "cut", LoadPicture("images\cut.ico"), "剪切", MIT_STRING
menu.AddItem "copy", LoadPicture("images\copy.ico"), "復(fù)制", MIT_STRING
menu.AddItem "paste", LoadPicture("images\paste.ico"), "粘貼", MIT_STRING
menu.AddItem "sep3", LoadPicture(), "", MIT_SEPARATOR
menu.AddItem "check", LoadPicture("images\check.ico"), "一個(gè) 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)
' 單擊鼠標(biāo)右建彈出菜單
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)
' 設(shè)置菜單風(fēng)格
Select Case Index
Case 0 ' Windows 標(biāo)準(zhǔn)
menu.Style = STYLE_WINDOWS
Case 1 ' XP 風(fēng)格
menu.Style = STYLE_XP
Case 2 ' 3D 立體風(fēng)格
menu.Style = STYLE_3D
Case 3 ' 漸變風(fēng)格
menu.Style = STYLE_SHADE
Case 4 ' 多彩風(fēng)格
menu.Style = STYLE_COLORFUL
End Select
End Sub
代碼中創(chuàng)建了一個(gè)cMenu類的對(duì)象，我們的編程重點(diǎn)將會(huì)放在cMenu類上，上面的代碼只是簡(jiǎn)單地調(diào)用cMenu。在后面的文章中，我們會(huì)看到其實(shí)cMenu有多達(dá)30個(gè)方法和屬性供我們調(diào)用，它的Style屬性只提供了5種內(nèi)置風(fēng)格，在實(shí)際應(yīng)用中，我們可以利用cMenu類提供的方法和屬性制作出各種各樣風(fēng)格的菜單，為自己的程序錦上添花。
（4）運(yùn)行結(jié)果：
這篇文章只是拋磚引玉，讓大家先睹為快，提前體驗(yàn)一下這個(gè)菜單類的魅力。在下一篇中，我們將繼續(xù)討論個(gè)性化菜單的制作，不一樣的是，我們的重點(diǎn)將是那個(gè)cMenu類。 :)
<>
|
