ja ich schon wieder, ich bekomme es einfach nicht hin das sich das Editfeld aktualisiert.
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <Array.au3>
$ini = @ScriptDir & "\Geburtstage.ini"
$datum = @MDAY & @MON
$iniread = IniRead("Geburtstage.ini", "Datum", $datum, "")
GUICreate("TestWindow", 640, 300, -1, -1)
$fileopen = FileOpen($ini, 0)
$fileread = FileRead($fileopen)
$input = GUICtrlCreateInput("", 330, 10, 150, 20)
$nam = GUICtrlCreateLabel("Name Bitte eingeben", 490, 13, 150, 20)
$save = GUICtrlCreateButton("Speichern", 560, 160, 60, 20)
$edit = GUICtrlCreateEdit($fileread, 10, 10, 300, 280)
$Date = GUICtrlCreateMonthCal("", 330, 70, 200, 200)
GUISetState(@SW_SHOW)
FileClose($ini)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $save
$test = StringSplit(GUICtrlRead(-1, $Date), "/")
$dat = ($test[3] & $test[2])
IniWrite($ini, "Datum", $dat, GUICtrlRead($input, $nam))
Sleep(500)
AdlibEnable("refresh")
EndSwitch
WEnd
Func refresh()
GUICtrlSetData($edit,$edit)
AdlibDisable()
EndFunc
habe schon alles versucht, weiss aber nicht mehr weiter. :wacko:
