分享
 
 
 

创建位图菜单

王朝vb·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

创建位图菜单

在通常的程序中菜单总是以文本的方式存在,有时候显得非常单调乏味。如果能够在菜单中加入位图图形,将会极大地增加用户的使用兴趣。本文介绍了如何使用位图制作菜单选项。

创建位图菜单

----创建位图菜单其实非常简单,它需要用到Windows应用程序编程接口(API)的一些菜单函数和位图函数,你需要将这些函数的声明包含在你的应用程序的标准模块中,具体的内容请参见样例程序。步骤如下:

使用函数GetSubMenu来提取子菜单项的句柄,并通过使用函数CreateCompatibleDC来创建一个兼容的设备环境描述表;

在一个循环过程中通过使用CreateCompatibleBitmap函数,SelectObject函数以及BitBlt函数来分别将针对各个菜单项所载入的位图选入到兼容设备环境中;

通过ModifyMenu函数绘制真正的位图菜单选项;

使用DeleteDC函数来释放设备环境,以便其他的程序可以使用它们。

----提取位图可以有多种方法,在本样例程序中在窗体上设置了四个图形框控件,使用它们载入4个预设的图标来作为菜单选项位图的源文件,当然你也可以使用其他的方法,例如使用LoadPicture函数来从磁盘装载位图。

样例程序

在Visual Basic中开始一个新的工程,采用缺省的方法建立Form1。

创建一个新的模块,采用缺省的方法建立Module1.Bas。

将如下的声明语句和常量添加到Module1.Bas模块中:

Option Explicit

Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long

Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long,

ByVal nPos As Long) As Long

Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long,

ByVal nPos As Long) As Long

Declare Function ModifyMenu Lib "user32" Alias "ModifyMenuA"

(ByVal hMenu As Long,ByVal nPosition As Long, ByVal wFlags As Long,

ByVal wIDNewItem As Long, ByVal lpString As Any) As Long

Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long

Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Declare Function CreateCompatibleBitmap Lib "gdi32"

(ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long

Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long,

ByVal hObject As Long) As Long

Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long,

ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC

As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

Public Const SRCCOPY = &HCC0020

Public Const MF_BYPOSITION = &H400&

Public Const MF_BITMAP = &H4&

注意上面的声明语句需要书写在一行内。

在Form1上添加4个图形框控件,将它们的Name属性设置为Picture1,将它们的Index属性依次设置为0,1,2,3,将它们的AutoRedrew属性设置为True,将它们的AutoResize属性设置为Ture,以及将它们的Visable属性设置为False。

将上面的4个图形框控件的Picture属性依次设置为Face1.ico,Face2.ico,Face3.ico,Face4.ico。

在Form1上添加第一个菜单项,将它的标题设置为“[&F]文件”,名称设置为mnuFile。在其下添加一个子菜单项,将它的标题设置为“[&E]退出”,名称设置为mnuExit。

在Form1上添加第二个菜单项,将它的标题设置为“[&A]脸谱”,名称设置为mnuFace。在其下添加4个子菜单项,分别将改4个子菜单项的名称设置为“[N]正常”,“[&S]微笑”,“ [&L]大笑”,以及“[&O]悲伤”。将它们的名称设置为“mnuFaceSel”,并相应将这4个子菜单项的索引设置为0,1,2,3。

将如下的代码添加到Form1的Form_Load事件中:

Private Sub Form_Load()

Dim nLoopCtr As Integer

Dim lResult As Long

Dim hTempDC As Long

Dim nWidth As Integer

Dim nHeight As Integer

Dim lTempID As Long

Dim hMenuID As Long

Dim lItemCount As Long

Dim hBitmap As Long

nWidth = Picture1(nLoopCtr).Width \ Screen.TwipsPerPixelX

nHeight = Picture1(nLoopCtr).Height \ Screen.TwipsPerPixelY

hMenuID = GetSubMenu(GetMenu((Me.hwnd)), 1)

hTempDC = CreateCompatibleDC(Picture1(nLoopCtr).hdc)

For nLoopCtr = 0 To 3

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_BYPOSITION Or MF_BITMAP,

GetMenuItemID(hMenuID, nLoopCtr), hBitmap)

Next nLoopCtr

lResult = DeleteDC(hTempDC)

End Sub

将如下的代码添加到“退出”子菜单的单击事件中:

Private Sub mnuExit_Click(Index As Integer)

Select Case Index

Case 0

Unload Me

End Select

End Sub

运行该样例程序,单击“脸谱”菜单,则会看到由4个脸谱图标所形成的位图子菜单项,如图1所示。单击“文件”\“退出”菜单可退出应用程序。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有