SpinGadget() Beispiel in Hilfe
Verfasst: 27.09.2014 15:58
@Andrè: finde leider gerade den Thread fürs Handbuch nicht.
Das Event Handling im Beispiel für das SpinGadget() funktioniert nicht, wenn der Nutzer eine Zahl als Text eingibt.
Es muss daher wie folgt erweitert werden:
Das Event Handling im Beispiel für das SpinGadget() funktioniert nicht, wenn der Nutzer eine Zahl als Text eingibt.
Es muss daher wie folgt erweitert werden:
Code: Alles auswählen
If OpenWindow(0, 0, 0, 140, 70, "SpinGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
SpinGadget (0, 20, 20, 100, 25, 0, 1000)
SetGadgetState (0, 5) : SetGadgetText(0, "5") ; legt den Anfangswert fest
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
If EventGadget() = 0
Select EventType()
Case #PB_EventType_Up, #PB_EventType_Down
SetGadgetText(0, Str(GetGadgetState(0)))
Case #PB_EventType_Change
SetGadgetState(0, Val(GetGadgetText(0)))
EndSelect
EndIf
EndIf
Until Event = #PB_Event_CloseWindow
EndIf