网络凯子 发表于 2008-8-30 18:24:28

请教一个问题

托盘
我制作好一个软件，``然后点窗体上面的最少化，可以直接变成托盘的样子嘛 ，应该要怎么写，请教高手哈，`

hack087 发表于 2008-9-4 00:11:57

帮助文件里面就有托盘的代码了
你进行修改就可以勒
代码如下

#Include <Constants.au3>
#NoTrayIcon

Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.

$exititem       = TrayCreateItem("Exit")

TraySetIcon("warning")
TraySetToolTip("SOS")

TraySetState(); Show the tray icon

$toggle = 0

While 1
    $msg = TrayGetMsg()
    Select
      Case $msg = 0
            Sleep(1000)
            If $toggle = 0 Then
                TraySetState(); Show the tray icon
                $toggle = 1
            Else
                TraySetState(2) ; Hide the tray icon
                $toggle = 0
            EndIF
      Case $msg = $exititem
            ExitLoop
    EndSelect
      
WEnd

Exit

txen548 发表于 2012-12-18 19:43:36

求人不如求已
页: [1]
查看完整版本: 请教一个问题