| | | VB高级界面编程(一) | | 2001-01-02·
·张文华··yesky
| 上一页 1 2 3 下一页
调用 Dim hSubMenu As Long
hMenu = GetMenu(Me.hwnd)
`取得Form菜单的第0个Submenu `调入的一个菜单的位置
hSubMenu = GetSubMenu(hMenu, 0) `调入的一个菜单的位置
为取得Menu ID所调用的API函数是GetMenuItemID：
Declare Function GetMenuItemID Lib "user32" (ByVal hMenu As Long, ByVal
nPos As Long) As Long
Dim hMenu As Long, hSubMenu As Long, menuid As Long
hMenu = GetMenu(Me.hwnd)
hSubMenu = GetSubMenu(hMenu, 0)
menuid = GetMenuItemID(hSubMenu, 0) ‘调入的一个菜单命令
取得hMenu,hSubMenu及Menu ID之后，我们可以调用ModifyMenModifyMenu API函数改变某一个菜单命令或子菜单的“标题、图形、或Menu
ID”。ModifyMenu几个参数的意义如下：
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
HMenu: 传入hMenu或hSubMenu。
nPosition: 欲改变菜单命令的位置或Menu ID,这一参数取决于wFlags参数。
wFlags: 可以是以下设置值的组合：
1． MF_BYPOSITION 表示菜单命令的位置。
2． MF_BYCOMMAND 表示菜单命令的Menu ID，他不与1并存。
3． MF_STRING 表示菜单命令的文字标题。
4． MF_BITMAP 表示菜单命令的图片，他不与3并存。
wIDNewItem：传入原有的Menu ID，也就是不要改变。
IpString: 新的菜单命令的文字标题或图片。
上一页 1 2 3 下一页 | | | 感谢
访问天极网，如果您觉得该文章涉及版权问题，请看这里！
|
|
