托盘图标右键菜单的问题

78391493

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

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

;系统托盘鼠标点击
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

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

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

78391493

顶顶，难道只能延迟吗？

cjl

参考这里:http://www.autoitx.com/forum.php ... 2%BC%FC%B2%CB%B5%A5

316428696

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