用vb写程序后，在添加菜单时，怎样在菜单项前添加图片？？

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

如：在打开菜单前有个打开的文件夹图片，在保存菜单前有个软盘的图片，怎么加上这些图的。我做的菜单就只有文字。

解析:

用VB6做这个很麻烦的，要调用API，一个例子：

Private Declare Function GetMenu Lib "user32" _

(ByVal hwnd As Long) As Long

Private Declare Function GetSubMenu Lib "user32" _

(ByVal hMenu As Long, ByVal nPos As Long) As Long

Private Declare Function SetMenuItemBitmaps Lib "user32" _

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

ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long) As Long

Const MF_BYPOSITION = &H400&

Private Sub Form_Load()

Dim mHandle As Long, lRet As Long, sHandle As Long, sHandle2 As Long

'取得菜单的句柄并赋值给mHandle

mHandle = GetMenu(hwnd)

'取得mHandle句柄所指菜单的第一个d出式菜单（文件&F）的句柄并赋值给sHandle

sHandle = GetSubMenu(mHandle, 0)

'将d出式菜单的第0-4项加上图片，为什么跳过2呢？因为2是分割线

lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, imOpen.Picture, imSave.Picture)

lRet = SetMenuItemBitmaps(sHandle, 1, MF_BYPOSITION, imSave.Picture, imSave.Picture)

lRet = SetMenuItemBitmaps(sHandle, 3, MF_BYPOSITION, imPrint.Picture, imPrint.Picture)

lRet = SetMenuItemBitmaps(sHandle, 4, MF_BYPOSITION, imPrintSetup.Picture, imPrintSetup.Picture)

'取得mHandle句柄所指菜单的第二个d出式菜单（编辑&E）的句柄并赋值给sHandle

sHandle = GetSubMenu(mHandle, 1)

'取得sHandle句柄所指菜单的第一个次级菜单（次级菜单&S）的句柄并赋值给sHandle2

sHandle2 = GetSubMenu(sHandle, 0)

'将次级菜单中的第1项加上图片

lRet = SetMenuItemBitmaps(sHandle2, 0, MF_BYPOSITION, imCopy.Picture, imCopy.Picture)

'提示：在SetMenuItemBitmaps（）我们把后两项设为相同的图片，如果设为不同的两张图片会有什么效果呢？

' 原来这两张图片分别表示复选和撤消复选时的状态,你只须在菜单项被点击的函数中加入以下语句：

' Private Sub mnuOpen_Click()

' If mnuOpen.Checked = True Then

' mnuOpen.Checked = False

' Else: mnuOpen.Checked = True

' End If

' End Sub

' 然后在SetMenuItemBitmaps（）我们把后两项设为不同的图片即可，有兴趣的话试一试。

End Sub

1、首先启动visual basic6，新建一个标准exe文件，进入窗体对话框。

2、选择form1，设置height属性值为6000，width为8000。

3、接着设置borderstyle属性值为4-fixed toolwindow，查看效果变化。

4、双击工具箱中的image控件，在窗体上创建image1控件。

5、采用步骤2的方法设置height属性值为6000，width为8000，top为0，left为0，使其布满窗体。

6、点击picture属性，设置属性值，找到一张图片导入，并设置大小为6000*8000。

7、然后执行文件-生成工程命令，输入文件名称，保存在桌面上，将文件生成exe文件，这样就完成了。

---