本帖最后由 afan 于 2010-1-2 13:37 编辑 #include <ButtonConstants.au3>
#include <DateTimeConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("时间修改", 248, 159, 192, 114)
$Date1 = GUICtrlCreateDate("", 16, 16, 217, 25, 0)
$Input1 = GUICtrlCreateInput("2009-2-15", 16, 56, 217, 21)
$Button1 = GUICtrlCreateButton("修改时间", 8, 96, 233, 41, BitOR($BS_FLAT, $WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$str = StringSplit(GUICtrlRead($Input1), '-')
GUICtrlSetData($Date1, StringFormat('%4s-%2s-%2s', $str[1], $str[2], $str[3]))
EndSwitch
WEnd
|