本帖最后由 tcpuuu 于 2012-2-22 15:56 编辑
今天是9月11日 到 10月10 日 還有幾天#include <WindowsConstants.au3>
GUICreate('TIME',300,60)
$Tota7 = GUICtrlCreateLabel ("今天是",1,30,48,22)
$Tota8 = GUICtrlCreateLabel ("",52,30,32,22,0x01)
GUICtrlSetData($Tota8,@MON & @MDAY)
$Tota9 = GUICtrlCreateLabel ("距離",86,30,32,22)
$Tota10 = GUICtrlCreateInput("1010",120,28,40,22,0x01)
$Tota11 = GUICtrlCreateLabel("還有",162,30,32,22,0x01)
$Tota12 = GUICtrlCreateInput ("?",196,28,24,22,0x01)
$Tota13 = GUICtrlCreateLabel ("天",222,30,16,22,0x01)
For $i = $Tota7 to $Tota13
GUICtrlSetFont($i,12)
Next
;===============================================================================
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case -3
Exit
EndSwitch
WEnd
|