Repeat : Until WaitWindowEvent()

[Kiffi]

noch eine frage zum verständnis:

würde die zeile

Code: Alles auswählen

repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

folgendes bedeuten?

Code: Alles auswählen

      Repeat
        WaitWindowEvent()
      Until WaitWindowEvent() = #PB_Event_CloseWindow

nein. Denn damit rufst Du 2mal WaitWindowEvent()
auf, was zur Folge hat, dass Ereignisse 'verschluckt'
werden.

Grüße ... Kiffi

[RSBasic]

Wenn du innerhalb der Schleife einen "WaitWindowEvent" haben möchtest, dann mach es doch so:

Code: Alles auswählen

Repeat
  Event = WaitWindowEvent()
  ;Weitere Auswertungen...
Until Event = #PB_Event_CloseWindow

[Nino]

noch eine frage zum verständnis:

würde die zeile

Code: Alles auswählen

repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

folgendes bedeuten?

Code: Alles auswählen

      Repeat
        WaitWindowEvent()
      Until WaitWindowEvent() = #PB_Event_CloseWindow

Nein, der Doppelpunkt kann lediglich durch einen Zeilenumbruch ersetzt werden.
Siehe Allgemeine Syntax-Regeln.

[STARGÅTE]

Code: Alles auswählen

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Dieser Code wird eigentlich nur in sehr kurzen Beispielcode für Windows und Gadgets genutzt, weil er sicherstellt, dass Events verarbeitet werden und das Programm beim [X] drücken beendet wird.

Wenn du ein richtiges Programm schreiben möchtest, solltest du die Events richtig auswerten, und die Schleife zB so aufbauen:

Code: Alles auswählen

Repeat
	
	Select WaitWindowEvent()
			
		Case #PB_Event_CloseWindow
			Break ; aus der Schleife springen, hier kann auch "End" verwendet werden.
			
		Case #PB_Event_Gadget
			Select EventGadget() ; In welchem Gadget gabs ein Event
				Case #GadgetNummer
					Select EventType() ; Welcher Eventtyp liegt vor?
						Case #PB_EventType_LeftClick
							;...
					EndSelect
							;...
			EndSelect
			
		Case #PB_Event_Menu
			Select EventMenu() ; Welcher Menüeintrag wurde angeklickt.
				Case #MenuItem
					;...
			EndSelect
			
	EndSelect
	
ForEver

[Pr0fessor]

Danke für die vielen aufschlussreichen antworten - jetzt weiß ich bescheid.

(auch super finde ich dass das Forum so eine gute community besitzt indem man schnell geholfen wird. )