ich möchte beim dategadget ein bestimmtes datum setzen. ich benutze dafür diesen befehl:
Code: Alles auswählen
SetGadgetState(1393,ParseDate("%dd.%mm.%yyyy",Datum$))
Code: Alles auswählen
SetGadgetState(1393,ParseDate("%dd.%mm.%yyyy",Datum$))
Code: Alles auswählen
#DatGad = 1
WinId = OpenWindow(1, 0, 0, 200, 150, "Test DateGad", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
CreateGadgetList(WinId)
DateGadget(#DatGad, 10, 10, 120, 20)
Datum$ = "20.08.2008"
SetGadgetState(#DatGad, ParseDate("%dd.%mm.%yyyy", Datum$))
Repeat ;/========== die SteuerSchleife ==========
EventID = WaitWindowEvent()
Until EventID = #PB_Event_CloseWindow
Code: Alles auswählen
Datum$="20.08.2008"
If OpenWindow(0, 0, 0, 200, 250, "DateGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
DateGadget(0, 10, 10, 180, 25, "Datum: %mm/%dd/%yyyy Zeit: %hh:%ii")
SetGadgetState(0,ParseDate("%dd.%mm.%yyyy",Datum$))
Repeat: Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
EndIf
Code: Alles auswählen
While WindowEvent() : Went