Hallo zusammen, ich habe ein Problem mit dem Date picker. Ich möchte, dass der datepicker ausgelesen wird, und Das angegebene Datum in Input1 eingegeben wird. Was habe ich falsch gemacht?
[autoit]#include <GUIConstants.au3>
#include <ButtonConstants.au3>
Const $DATUMSFORMAT = "dddd, dd.MM.yyyy"
Const $DTM_SETFORMAT_ = 0x1032
$akt_datum = @MON & "." & @WDAY & "." & @YEAR
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Datum eingeben", 196, 95, 194, 126)
$Label1 = GUICtrlCreateLabel("Bitte gebe das Datum an", 32, 8, 123, 17)
$Button1 = GUICtrlCreateButton("Weiter", 8, 64, 73, 25,$BS_DEFPUSHBUTTON)
$Date1 = GUICtrlCreateDate($akt_datum, 16, 32, 153, 25)
$Button2 = GUICtrlCreateButton("Abbrechen", 104, 64, 73, 25)
GUISetState()
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
Exit
Case $Button1
GUIDelete($Form1)
ExitLoop
EndSwitch
WEnd
$Datum = GUICtrlRead($Date1)
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Output", 849, 514, 192, 102)
$Input1 = GUICtrlCreateInput("Datum: " & GUICtrlRead($Date1), 8, 8, 617, 500)
$Button3 = GUICtrlCreateButton("Kopieren", 632, 192, 209, 65)
$Button4 = GUICtrlCreateButton("Schließen", 664, 280, 145, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
ClipPut (GUICtrlRead($Input1))
Case $Button4
Exit
EndSwitch
WEnd