如何上GUI 显示当前系统时间？-已解决问题区-AUTOIT CN

qq82015930 发表于 2009-1-7 22:23:46

如何上GUI 显示当前系统时间？

如何上GUI 显示当前系统时间？不是用状态栏
可以是放在GUI界面的任何地方，秒时间要同步的
请问如何实现？？

经过摸索终于解决拉谢谢顽固不化大绯狼及AUTOIT CN 的会员

[ 本帖最后由 qq82015930 于 2009-1-8 14:29 编辑 ]

顽固不化 发表于 2009-1-7 23:20:50

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 252, 143, 192, 124)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibEnable("myadlib",500)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func myadlib()
$TL=@HOUR&":"&@MIN&":"&@SEC
WinSetTitle($Form1,"",$TL)
EndFunc

大绯狼 发表于 2009-1-7 23:45:37

楼主的意思应该就是一个LABEL 然后结合顽固的代码就可以实现

sxd 发表于 2009-1-8 00:15:56

设个label

while 1
guictrlsetdata @HOUR&":"&@MIN&":"&@SEC
sleep 1000
wend

qq82015930 发表于 2009-1-8 13:47:11

原帖由 qq82015930 于 2009-1-7 22:23 发表 http://www.autoitx.com/images/common/back.gif
如何上GUI 显示当前系统时间？不是用状态栏
可以是放在GUI界面的任何地方，秒时间要同步的
请问如何实现？？

谢谢你们的回答我太笨拉，不知道LABEL怎么与顽固的代码结合，能给个例子吗，，谢谢！！

amgloon 发表于 2009-1-8 16:17:01

这样应该能满足你的要求

#include <GUIConstantsEx.au3>
#include<date.au3>

$Form1 = GUICreate("Form1", 200, 40)
$label=GUICtrlCreateLabel("",50,10,120,25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
AdlibEnable("nowtime",500)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
EndSwitch
WEnd

Func nowtime()
GUICtrlSetData($label,_Now())
EndFunc

[ 本帖最后由 amgloon 于 2009-1-8 16:22 编辑 ]

hqh21 发表于 2009-1-17 21:24:06

收藏++++++++学习

6678720 发表于 2010-10-22 13:23:58

很好的思路，感谢各位大侠分享。

menfan1 发表于 2010-10-22 16:03:28

AdlibRegister("myadlib",500)

kaige 发表于 2010-12-9 17:38:48

学习啦，谢谢。。。。。。。。。。。。。。。。

shuangsexing 发表于 2011-11-26 17:23:08

很好，好东西。学习了

nis 发表于 2011-11-27 23:35:34

收藏了，谢谢··！！！

au3x 发表于 2011-12-5 23:02:18

学习。。。。

scum 发表于 2011-12-14 14:36:21

case -3 真不懂。。。

showshow 发表于 2011-12-20 22:24:23

感觉没用AdlibEnable("nowtime",500)

页: [1] 2

AUTOIT CN's Archiver

如何上GUI 显示当前系统时间？

这样应该能满足你的要求