找回密码
 加入
搜索
查看: 1592|回复: 2

看不懂此语句

[复制链接]
发表于 2009-8-5 23:26:47 | 显示全部楼层 |阅读模式
看不懂此语句,高手解释下,谢谢

Dim $sTitle
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


发表于 2009-8-6 00:18:33 | 显示全部楼层
#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
这样看懂了吗?
发表于 2009-8-6 00:52:40 | 显示全部楼层
其实就是字符串的控制
楼主还是去温习下相关函数吧
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-26 11:49 , Processed in 0.082386 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表