菜单动态追加子项

Helpyou

点击 系统功能是可以看到增加了但是 弹出菜单 (系统功能, , ) 却没看到增加的子菜单，求指点

Helpyou

@zainex

bsliu

66666666666666666666666

zainex

用 TrackPopupMenu ：

  

DLL命令名	返回值类型	公开	备 注
TrackPopupMenu	逻辑型
DLL库文件名:
user32.dll
在DLL库中对应命令名:
TrackPopupMenu
参数名	类 型	传址	数组	备 注
hMenu	整数型
uFlags	整数型
x	整数型
y	整数型
nReserved	整数型
hWnd	整数型
prcRect	整数型

.版本 2<br /> <br /> .DLL命令 TrackPopupMenu, 逻辑型, "user32.dll", "TrackPopupMenu"<br />     .参数 hMenu, 整数型<br />     .参数 uFlags, 整数型<br />     .参数 x, 整数型<br />     .参数 y, 整数型<br />     .参数 nReserved, 整数型<br />     .参数 hWnd, 整数型<br />     .参数 prcRect, 整数型

  

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标右键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
坐标	精易_坐标
句柄	整数型
子句柄	整数型

句柄 ＝ 菜单_取句柄 (_启动窗口.取窗口句柄 ())
子句柄 ＝ 菜单_取子句柄 (句柄, 1)
坐标.横 ＝ 横向位置
坐标.纵 ＝ 纵向位置
ClientToScreen (_启动窗口.取窗口句柄 (), 坐标)
TrackPopupMenu (子句柄, 0, 坐标.横, 坐标.纵, 0, _启动窗口.取窗口句柄 (), 0)
' 弹出菜单 (系统功能, , )

.版本 2<br /> <br /> .子程序 __启动窗口_鼠标右键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 坐标, 精易_坐标<br /> .局部变量 句柄, 整数型<br /> .局部变量 子句柄, 整数型<br /> <br /> 句柄 ＝ 菜单_取句柄 (_启动窗口.取窗口句柄 ())<br /> 子句柄 ＝ 菜单_取子句柄 (句柄, 1)<br /> 坐标.横 ＝ 横向位置<br /> 坐标.纵 ＝ 纵向位置<br /> ClientToScreen (_启动窗口.取窗口句柄 (), 坐标)<br /> TrackPopupMenu (子句柄, 0, 坐标.横, 坐标.纵, 0, _启动窗口.取窗口句柄 (), 0)<br /> ' 弹出菜单 (系统功能, , )

效果：

例子.zip (1.27 MB, 下载次数: 2)

昨天 22:34 上传

点击文件名下载附件

chensun

66666666666666666666666666