funkey Posted November 26, 2009 Share Posted November 26, 2009 (edited) #include <DateTimeConstants.au3> GUICreate("Date", 350, 70) GUICtrlCreateMenuItem("Test", GUICtrlCreateMenu("Test")) GUICtrlCreateDate("", 20, 15, 200, 20) $time = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 250, 15, 100, 20, 0x201) GUISetState() AdlibEnable("_Time", 1000) Do Until GUIGetMsg() = -3 Func _Time() GUICtrlSetData($time, @HOUR & ":" & @MIN & ":" & @SEC) EndFunc Edit: Sorry, i found it: _Timer_SetTimer works!! #include <DateTimeConstants.au3> #Include <Timers.au3> $hGui = GUICreate("Date", 350, 70) GUICtrlCreateMenuItem("Test", GUICtrlCreateMenu("Test")) GUICtrlCreateDate("", 20, 15, 200, 20) $time = GUICtrlCreateLabel(@HOUR & ":" & @MIN & ":" & @SEC, 250, 15, 100, 20, 0x201) GUISetState() $timer = _Timer_SetTimer($hGui, 1000, "_Time") Do Until GUIGetMsg() = -3 Func _Time($hWnd, $Msg, $iIDTimer, $dwTime) GUICtrlSetData($time, @HOUR & ":" & @MIN & ":" & @SEC) EndFunc _Timer_KillTimer($hGui, $timer) Edited November 26, 2009 by funkey Programming today is a race between software engineers striving tobuild bigger and better idiot-proof programs, and the Universetrying to produce bigger and better idiots.So far, the Universe is winning. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now