发信人: mendy.bbs@bbs.nju.edu.cn (孟迪), 信区: cnprogram
标  题: 创建位图菜单
发信站: nju_bbs (Sun Apr 19 14:26:11 1998)
转信站: Lilac!ustcnews!nju_bbs

发信人: kkk (小火), 信区: Windows
标  题: 创建位图菜单
发信站: '3m紫金飞鸿m' (Sun Mar 29 13:24:08 1998) , 站内信件

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

创建位图菜单
    创建位图菜单其实非常简单，它需要用到Windows
应用程序编程接口（API）的一些菜单函数和位图函数
，你需要将这些函数的声明包含在你的应用程序的标
准模块中，具体的内容请参见样例程序。
    首先需要使用函数GetSubMenu来提取子菜单项的
句柄，并通过使用函数CreateCompatibleDC来创建一个
兼容的设备环境描述表，然后在一个循环过程中通过使
用CreateCompatibleBitmap函数，SelectObject函数以
及BitBlt函数来分别将针对各个菜单项所载入的位图选
入到兼容设备环境中，然后通过ModifyMenu函数绘制真
正的位图菜单选项。需要牢记的是，最后需要使用
DeleteDC函数来释放设备环境，以便其他的程序可以使
用它们。
关于提取位图，可以有许多种方法，在本样例程序中在
窗体上设置了四个图形框控件，使用它们载入4个预设
的图标来作为菜单选项位图的源文件，当然你也可以使
用其他的方法，例如使用LoadPicture函数来从磁盘装
载位图。

样例程序
1. 在Visual Basic中开始一个新的工程，采用缺省的
方法建立Form1。
2. 创建一个新的模块，采用缺省的方法建立Module1.Bas。
3. 将如下的声明语句和常量添加到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&

注意上面的声明语句需要书写在一行内。
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事件中：

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

9.将如下的代码添加到"退出"子菜单的单击事件中：

Private Sub mnuExit_Click(Index As Integer)
    Select Case Index
        Case 0
            Unload Me
    End Select
End Sub

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


图1

--
m;36m※ 来源:·紫金飞鸿 bbs.njupt.edu.cn·[FROM: 202.119.224.86]m

--
※ 来源:．南大小百合信息交换站 bbs.nju.edu.cn．[FROM: a507yjh.nju.edu]