TrayOnEvent模式下的托盘操作实例(中文注释)

漠北雪~狼

如题, TrayOnEvent模式下的托盘操作实例(中文注释).其实帮助文档中已经有了而且更详细,我只是加上了中文的注释.

#include <Constants.au3>
#NoTrayIcon
Opt("TrayMenuMode", 1) ;没有默认的（暂停脚本和退出）菜单.
Opt("trayOnEventMode", 1) ;应用 OnEvent 函数于系统托盘.

$Start = TrayCreateItem("启用") ;创建第一个菜单项
TrayItemSetOnEvent($Start, "TrayMsg") ;注册第一个菜单项的（被点下）事件
TrayCreateItem("") ;创建一个空白的菜单项（即横斜杠分割符）
$Close = TrayCreateItem("关闭") ;创建第二个菜单项
TrayItemSetOnEvent($Close, "TrayMsg") ;注册第二个菜单项的（被点下）事件
TrayCreateItem("") ;
$Quit = TrayCreateItem("退出") ;创建第三个菜单项
TrayItemSetOnEvent($Quit, "TrayMsg") ;注册第二个菜单项的（被点下）事件

TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "TrayMsg") ;注册鼠标左键双击事件(只能在 TrayOnEventMode 设置为 1 时才能使用)
TraySetOnEvent($TRAY_EVENT_SECONDARYUP, "TrayMsg") ;注册鼠标右键双击事件(只能在 TrayOnEventMode 设置为 1 时才能使用)
TraySetState()

While 1
        Sleep(5000)
WEnd

Func TrayMsg()
        Switch @TRAY_ID   ;选择产生消息的 TrayItem 或其它特殊事件（如鼠标左键双击事件）
                Case $Start
                        MsgBox(48, "提示", "你点下了“启用”")
                Case $Close
                        MsgBox(48, "提示", "你点下了“关闭”")
                Case $TRAY_EVENT_PRIMARYDOUBLE
                        MsgBox(48, "提示", "你双击了鼠标左键")
                Case $Quit, $TRAY_EVENT_SECONDARYUP
                        Exit
        EndSwitch
EndFunc   ;==>TrayMsg

[ 本帖最后由 漠北雪~狼 于 2008-5-5 05:33 编辑 ]

itljl

一点启用就退出来了，没有弹出对话框啊。

itljl

回楼上的

Case $Quit, $TRAY_EVENT_SECONDARYUP
改为
Case $Quit
就好了

sunwei4616

呵呵，对新手比较有帮助的说

cheng4ever

    5毛party

zmj2008

回复 1# 漠北雪~狼


    这个真的是太好了，我没下载附件，我复制了上面的代码，楼主真的是太好了，顶

德制步枪

一点启用就退出来了，没有弹出对话框啊。

pingfan5888

学习了。。

saromman

好东西，赞

webberliuwei

解决我一个大问题~呵呵收藏了~谢谢

淡定开源

不明白，干什么用的

淡定开源

网络原因发重了。

563203563

563203563

563203563