举报
#include <String.au3> Dim $sTitle = "Animate Title" $hForm = GUICreate($sTitle, 400, 300) GUISetState() AnimateTitle($hForm, $sTitle, 100) Do Until guiGetMsg() = -3 Func AnimateTitle($hGUI, $sTitle, $iBuf) $sTitle = StringSplit($sTitle, "") For $i = $iBuf To 0 Step - 1 WinSetTitle($hGUI, "", _StringRepeat(" ", $i) & $sTitle[1]) Next Local $s For $i = 1 To $sTitle[0] $s &= $sTitle[$i] WinSetTitle($hGUI, "", $s) Sleep(5) Next EndFunc
本版积分规则 发表回复 回帖后跳转到最后一页
|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度
GMT+8, 2025-3-2 04:17 , Processed in 0.080566 second(s), 21 queries .
Powered by Discuz! X3.5 Licensed
© 2001-2024 Discuz! Team.