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 编辑 ] 一点启用就退出来了,没有弹出对话框啊。 回楼上的
Case $Quit, $TRAY_EVENT_SECONDARYUP
改为
Case $Quit
就好了 呵呵,对新手比较有帮助的说 :face (18): 5毛party 回复 1# 漠北雪~狼
这个真的是太好了,我没下载附件,我复制了上面的代码,楼主真的是太好了,顶 一点启用就退出来了,没有弹出对话框啊。 学习了。。 好东西,赞 解决我一个大问题~呵呵收藏了~谢谢 不明白,干什么用的 本帖最后由 淡定开源 于 2011-5-16 20:28 编辑
网络原因发重了。 {:face (332):} {:face (288):} {:face (288):}
页:
[1]
2