autoit 发表于 2008-5-3 14:20:04

修改托盘图标的实例

<p>可能需要beta版支持</p><p>＃i nclude &lt;GuiConstants.au3&gt;<br />Opt(&quot;TrayMenuMode&quot;,1)&nbsp;&nbsp; <br />$showgui&nbsp; = TrayCreateItem(&quot;显示窗口&quot;)<br />$trayexit&nbsp; = TrayCreateItem(&quot;&quot;)<br />$trayexit&nbsp; = TrayCreateItem(&quot;退出程序&quot;)</p><p>TraySetState()</p><p>$megui = GuiCreate(&quot;MyGUI&quot;, 392, 316,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))<br />$BMin = GuiCtrlCreateButton(&quot;窗体最小化&quot;, 40, 40, 170, 100)<br />$BTray = GuiCtrlCreateButton(&quot;最小到托盘区&quot;, 160, 180, 200, 100)<br />GuiSetState()<br />While 1<br />&nbsp;$msg = GuiGetMsg()<br />&nbsp;$trymsg = Traygetmsg()<br />&nbsp;Select<br />&nbsp;&nbsp;Case $msg = $GUI_EVENT_CLOSE<br />&nbsp;&nbsp;&nbsp;ExitLoop<br />&nbsp;&nbsp;Case $msg = $BMin<br />&nbsp;&nbsp;&nbsp;guisetstate(@SW_MINIMIZE,$megui )<br />&nbsp;&nbsp;Case $msg = $BTray<br />&nbsp;&nbsp;&nbsp;guisetstate(@SW_MINIMIZE,$megui )<br />&nbsp;&nbsp;&nbsp;guisetstate(@SW_hide,$megui )<br />&nbsp;&nbsp;Case $trymsg = $showgui<br />&nbsp;&nbsp;&nbsp;guisetstate(@SW_SHOW ,$megui)<br />&nbsp;&nbsp;&nbsp;guisetstate(@SW_RESTORE,$megui )<br />&nbsp;&nbsp;Case $trymsg = $trayexit<br />&nbsp;&nbsp;&nbsp;Exit<br />&nbsp;EndSelect<br />WEnd<br />Exit </p>

jhkdqaa 发表于 2009-5-20 17:06:15

顶起 补充：TraySetIcon("图标地址")
改托盘图标、且不支持png。。。支持ico

fzlrfzlr 发表于 2009-5-22 03:40:36

谢谢分享例子不错~~~~~~~~

botanycc 发表于 2009-5-22 08:35:22

收藏了，研究

bachelor66 发表于 2009-5-27 12:53:48

真好玩，AU3真不错啊

316428696 发表于 2009-10-23 23:42:50

说实话，楼主你的代码有问题 BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS) 这两个变量找不到！

881966 发表于 2018-11-13 14:36:47

谢谢分享，看着花眼

sandy 发表于 2024-5-11 19:07:49

谢谢分享例子不错
页: [1]
查看完整版本: 修改托盘图标的实例