VB创建位图菜单...

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

创建位图菜单 

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

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

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

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

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

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

样例程序 

1. 在Visual Basic中开始一个新项目工程(project),用缺省的方法建立Form1。 

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

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

Option Explicit 

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