VB創建位圖菜單

2019-11-18 17:26:50

字體：大中小

來源：轉載

供稿：網友

在通常的程序中,菜單總是以文本方式存在,顯得非常單調乏味。如果能夠在菜單中加入位圖圖形,將會極大地增加用戶的使用興趣。本文介紹如何使用位圖制作菜單選項。

創建位圖菜單

創建位圖菜單其實非常簡單,需要用到Windows應用程序編程接口(API)的一些菜單函數和位圖函數,將這些函數的聲明包含在應用程序的標準模塊中,具體的內容請參見樣例程序。步驟如下:

1.使用函數GetSubMenu來提取子菜單項的句柄,并通過使用函數CreateCompatibleDC來創建一個兼容的設備環境描述表;

2.在一個循環過程中通過使用CreateCompatibleBitmap函數、SelectObject函數以及BitBlt函數來分別將各個菜單項所載入的位圖選入到兼容設備環境中;

3.通過ModifyMenu函數繪制真正的位圖菜單選項;

4.使用DeleteDC函數來釋放設備環境,以便其他的程序可以使用它們。

提取位圖可以有多種方法,在本樣例程序中在窗體上設置了四個圖形框控件,使用它們載入4個預設的圖標來作為菜單選項位圖的源文件。當然也可以使用其他的方法,例如使用LoadPicture函數來從磁盤裝載位圖。

樣例程序

1.在VisualBasic中開始一個新項目工程(
8.將如下代碼添加到Form1的Form_Load事件中:

PrivateSubForm_Load()

DimnLoopCtrAsInteger

DimlResultAsLong

DimhTempDCAsLong

DimnWidthAsInteger

DimnHeightAsInteger

DimlTempIDAsLong

DimhMenuIDAsLong

DimlItemCountAsLong

DimhBitmapAsLong

nWidth=Picture1(nLoopCtr).Width/Screen.Tw