托盘图标右键菜单的问题-已解决问题区-AUTOIT CN

78391493 发表于 2008-9-18 22:02:02

托盘图标右键菜单的问题

Opt("TrayMenuMode",1)
$aboutitem = TrayCreateItem("关于")
$exititem = TrayCreateItem("退出")
While 1
$msg = TrayGetMsg()
Select
   Case $msg = $aboutitem
         Msgbox(64,"关于","关于")
   Case $msg = $exititem
         Exit
EndSelect
WEnd
Msgbox(0,"aaa","aaaaaaaaaaa")

以上是源代码，最后一行的 Msgbox(0,"aaa","aaaaaaaaaaa")无效，怎样让代码继续执行

[ 本帖最后由 78391493 于 2008-9-19 13:33 编辑 ]

l4ever 发表于 2008-9-19 03:55:10

你放这里是什么意思呢?应该是这样

;系统托盘鼠标点击
Opt("TrayMenuMode", 1)
Opt("trayOnEventMode", 1)
$aboutitem = TrayCreateItem("关于")
TrayItemSetOnEvent($aboutitem, "TrayMsg")
TrayCreateItem("")
$exititem = TrayCreateItem("退出") ;创建第三个菜单项
TrayItemSetOnEvent($exititem, "TrayMsg") ;注册第二个菜单项的（被点下）事件
TraySetState()

Func TrayMsg();托盘消息
   Switch @TRAY_ID ;选择产生消息的 TrayItem 或其它特殊事件（如鼠标左键双击事件）
Case $aboutitem
         Msgbox(64, "关于", "作者网站:http://L4EVER.cn")
   Case $exititem
                     Exit
   EndSwitch
EndFunc

While 1
sleep(5000)
Msgbox(0,"aaa","aaaaaaaaaaa")
WEnd

78391493 发表于 2008-9-19 08:44:58

回复 2# l4ever 的帖子

LS的，你的代码如果去掉延迟，那个对话框会不停的弹。

我要做的很简单，只是添加一个托盘右键菜单而已。如果把代码放在后面，那么没办法在开始运行的时候就加载。如果放在前面，后面的代码又没办法运行。

78391493 发表于 2008-9-19 09:05:48

顶顶，难道只能延迟吗？

cjl 发表于 2008-9-19 11:10:38

参考这里:http://www.autoitx.com/forum.php?mod=viewthread&tid=2250&highlight=%D3%D2%BC%FC%B2%CB%B5%A5

316428696 发表于 2010-1-27 12:23:43

难道没人知道解决菜单单选的问题？

页: [1]

AUTOIT CN's Archiver

托盘图标右键菜单的问题

回复 2# l4ever 的帖子