想写个计算时间的工具[已解决]

872777825 · 发表于 2011-8-13 19:10:34

本帖最后由 872777825 于 2011-8-13 22:24 编辑

小弟想写个小工具

就是一运行该工具就出现计算工具运行的时间从0秒开始算 00:00这样

背景要透明

不知道哪位老师可以百忙中抽点时间指点下

谢谢

lpxx · 发表于 2011-8-13 20:34:40

看看帮助里的_TicksToTime 函数

lpxx · 发表于 2011-8-13 20:37:59

所以照猫画虎

#include <Date.au3>
GUICreate('', 300, 100)
GUICtrlCreateLabel('已运行：', 90, 70, 100, 15)
Dim $tl = GUICtrlCreateLabel('00:00', 140, 70, 150, 15)
GUISetState()
Dim $timer = TimerInit()
AdlibRegister('Timer', 500)
While 1
        Switch GUIGetMsg()
                Case -3
                        Exit
        EndSwitch
WEnd
Func Timer()
        Local $Secs, $Mins, $Hour, $Time, $ticks, $sTime
        $ticks = Int(TimerDiff($timer))
        _TicksToTime($ticks, $Hour, $Mins, $Secs)
        $Time = StringFormat('%02s分:%02s秒', $Mins, $Secs)
        If $sTime <> $Time Then GUICtrlSetData($tl, $Time)
        $sTime = $Time
EndFunc   ;==>Timer

872777825 · 发表于 2011-8-13 22:24:18

所以照猫画虎
lpxx 发表于 2011-8-13 20:37

谢谢lpxx 老师问题解决了谢谢

xlcwxl · 发表于 2011-8-14 12:51:13

很不错的例子

abcd1258 · 发表于 2015-1-22 22:53:48

很不错的例子,收藏了.

		自动登录	找回密码
密码			加入

[AU3基础] 想写个计算时间的工具[已解决]

相关帖子