在通常的程序中,菜單總是以文本方式存在,顯得非常單調乏味。如果能夠在菜單中加入位圖圖形,將會極大地增加用戶的使用興趣。本文介紹如何使用位圖制作菜單選項。
創建位圖菜單
創建位圖菜單其實非常簡單,需要用到Windows應用程序編程接口(API)的一些菜單函數和位圖函數,將這些函數的聲明包含在應用程序的標准模塊中,具體的內容請參見樣例程序。步驟如下:
1.使用函數GetSubMenu來提取子菜單項的句柄,並通過使用函數CreateCompatibleDC來創建一個兼容的設備環境描述表;
2.在一個循環過程中通過使用CreateCompatibleBitmap函數、SelectObject函數以及BitBlt函數來分別將各個菜單項所載入的位圖選入到兼容設備環境中;
3.通過ModifyMenu函數繪制真正的位圖菜單選項;
4.使用DeleteDC函數來釋放設備環境,以便其他的程序可以使用它們。
提取位圖可以有多種方法,在本樣例程序中在窗體上設置了四個圖形框控件,使用它們載入4個預設的圖標來作為菜單選項位圖的源文件。當然也可以使用其他的方法,例如使用LoadPicture函數來從磁盤裝載位圖。
樣例程序
1.在VisualBasic中開始一個新項目工程(project),用缺省的方法建立Form1。
2.創建一個新的模塊,采用缺省的方法建立Module1.Bas。
3.將如下聲明語句和常量添加到Module1.Bas模塊中:
OptionExplicit
DeclareFunctionGetMenuLib"user32"(ByValhwndAsLong)AsLong
DeclareFunctionGetSubMenuLib"user32"(ByValhMenuAsLong,ByValnPosAsLong)AsLong
DeclareFunctionGetMenuItemIDLib"user32"(ByValhMenuAsLong,ByValnPosAsLong)AsLong
DeclareFunctionModifyMenuLib"user32"Alias"ModifyMenuA"(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong,ByValwIDNewItemAsLong,ByVallpStringAsAny)AsLong
DeclareFunctionCreateCompatibleDCLib"gdi32"(ByValhdcAsLong)AsLong
DeclareFunctionDeleteDCLib"gdi32"(ByValhdcAsLong)AsLong
DeclareFunctionCreateCompatibleBitmapLib"gdi32"(ByValhdcAsLong,ByValnWidthAsLong,ByValnHeightAsLong)AsLong
DeclareFunctionSelectObjectLib"gdi32"(ByValhdcAsLong,ByValhObjectAsLong)AsLong
DeclareFunctionBitBltLib"gdi32"(ByValhDestDCAsLong,ByValxAsLong,ByValyAsLong,ByValnWidthAsLong,ByValnHeightAsLong,ByValhSrcDCAsLong,ByValxSrcAsLong,ByValySrcAsLong,ByValdwRopAsLong)AsLong
PublicConstSRCCOPY=&HCC0020
PublicConstMF_BYPOSITION=&H400&
PublicConstMF_BITMAP=&H4&
注意:上面的聲明語句需要書寫在一行內。
4.在Form1上添加4個圖形框控件,Name屬性設置為Picture1,Index屬性依次設
置為0、1、2、3,AutoRedrew屬性設置為True,AutoResize屬性設置為Ture,Visable屬性設置為False。
5.將上面的4個圖形框控件的Picture屬性依次設置為Face1.ico、Face2.ico、
Face3.ico、Face4.ico。
6.在Form1上添加第一個菜單項,將它的標題設置為"[&F]文件",名稱設置
為mnuFile。在其下添加一個子菜單項,將它的標題設置為"[&E]退出",名稱設置為mnuExit。
7.在Form1上添加第二個菜單項,將它的標題設置為"[&A]臉譜",名稱設置
為mnuFace。在其下添加4個子菜單項,分別將改4個子菜單項的名稱設置為"[N]正常"、"[&S]微笑"、"[&L]大笑"、以及"[&O]悲傷"。將它們的名稱設置為"mnuFaceSel",並相應將這4個子菜單項的索引設置為0、1、2、3。
8.將如下代碼添加到Form1的Form_Load事件中:
PrivateSubForm_Load()
DimnLoopCtrAsInteger
DimlResultAsLong
DimhTempDCAsLong
DimnWidthAsInteger
DimnHeightAsInteger
DimlTempIDAsLong
DimhMenuIDAsLong
DimlItemCountAsLong
DimhBitmapAsLong
nWidth=Picture1(nLoopCtr).WidthScreen.TwipsPerPixelX
nHeight=Picture1(nLoopCtr).HeightScreen.TwipsPerPixelY
hMenuID=GetSubMenu(GetMenu((Me.hwnd)),1)
hTempDC=CreateCompatibleDC(Picture1(nLoopCtr).hdc)
FornLoopCtr=0To3
hBitmap=CreateCompatibleBitmap(Picture1(nLoopCtr).hdc,nWidth,nHeight)
lTempID=SelectObject(hTempDC,hBitmap)
lResult=BitBlt(hTempDC,0,0,nWidth,nHeight,(Picture1(nLoopCtr).hdc),0,0,SRCCOPY)
lTempID=SelectObject(hTempDC,lTempID)
mnuFaceSel(nLoopCtr).Caption=""
lResult=ModifyMenu(hMenuID,nLoopCtr,MF_BYPOSITIONOrMF_BITMAP,GetMenuItemID(hMenuID,nLoopCtr),hBitmap)
NextnLoopCtr
lResult=DeleteDC(hTempDC)
EndSub
9.將如下的代碼添加到"退出"子菜單的單擊事件中:
PrivateSubmnuExit_Click(IndexAsInteger)
SelectCaseIndex
Case0
UnloadMe
EndSelect
EndSub
運行該樣例程序,單擊"臉譜"菜單,則會看到由4個臉譜圖標所形成的位圖子菜單項,如下圖所示;單擊"文件""退出"菜單可退出應用程序。->
