论坛 › 已解决问题区 › 有没有类似热键的【热菜单】？

jiataifeng 发表于 2008-5-26 23:59:43

有没有类似热键的【热菜单】？

发现热键却是好用啊，呵呵。比如下面的程序，在任何时候按ESC都可以退出的。
由此，能否设计类似的托盘菜单，在任何时候都可以退出运行。
比如下面的代码，热键是可以做到的，那能否将托盘的菜单“EXIT”也能达到类似的功效呢（任何时候退出运行），如何做呢。
HotKeySet("{ESC}", "out")
#NoTrayIcon
Opt("TrayMenuMode", 1) ; Default tray menu items (Script Paused/Exit) will not be shown.

$prefsitem = TrayCreateItem("Preferences")
TrayCreateItem("")
$aboutitem = TrayCreateItem("About")
TrayCreateItem("")
$exititem = TrayCreateItem("Exit")

TraySetState()
While 1
        $msg = TrayGetMsg()
        Select
                Case $msg = 0
                        ContinueLoop
                Case $msg = $prefsitem
                        MsgBox(64, "Preferences:", "OS:" & @OSVersion)
                Case $msg = $aboutitem
                        MsgBox(64, "About:", "AutoIt3-Tray-sample.")
                Case $msg = $exititem
                        ExitLoop
        EndSelect
        runing()
WEnd
Func runing()
        While 1
                Sleep(500)
        WEnd
EndFunc   ;==>runing
Func out()
        Exit
EndFunc   ;==>out

[ 本帖最后由 jiataifeng 于 2008-5-28 00:48 编辑 ]

漠北雪~狼 发表于 2008-5-27 15:40:56

http://www.autoitx.com/forum.php?mod=viewthread&tid=174

使用TrayOnEvent模式即可

查看完整版本: 有没有类似热键的【热菜单】？