上一页 1 2 3
调用
Dim hMenu As Long, hSubMenu As Long, menuid As Long
hMenu = GetMenu(Me.hwnd)
hSubMenu = GetSubMenu(hMenu, 0) ‘0代表菜单的一项
menuid = GetMenuItemID(hSubMenu, 0) ‘0代表子菜单的第一项
ModifyMenu hSubMenu, 0, MF_BITMAP , menuid, pic(0).Handle
在调用前使用以下语句载入图片：
Static pic as picture
Set pic =loadpicture(app.path & “\ 图片名称“)
以上所介绍的菜单API函数其实只占菜单API函数的一小部分，但对编写图形菜单程序已绰绰有余，实际上，我们并不需要完全使用API函数来建立菜单，而是先用VB所提供的菜单编辑器先编辑好纯文字菜单，接着再利用API将某一些菜单命令或子菜单改变成图形。最后我把API声明的模块告诉大家。主程序部分大家根据需要参照以上介绍编写。
Option Explicit
Public Const MF_BYCOMMAND = &H0&
Public Const MF_BYPOSITION = &H400&
Public Const MF_BITMAP = &H4&
Public Const MF_STRING = &H0&
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
上一页 1 2 3 |
