|
发表于 2023-10-23 16:04:48
|
显示全部楼层
|
请教各位朋友,关于guictrlcreatemenu,有没有办法实现点退出就可以直接响应,就是不用点出下拉菜单。
#include
#include
#include
example()
func example()
guicreate("菜单控件 gui", 300, 200)
local $idfilemenu = guictrlcreatemenu("文件")
local $idfileitem = guictrlcreatemenuitem("打开", $idfilemenu)
guictrlsetstate(-1, $gui_defbutton)
local $idhelpmenu = guictrlcreatemenu("退出")
guisetstate(@sw_show)
while 1
switch guigetmsg()
case $idfileitem
msgbox(0,'','test1',1)
case $idhelpmenu
msgbox(0,'','test2',1)
case $gui_event_close
exitloop
endswitch
wend
guidelete()
endfunc
|
|