Seite 1 von 2
#PB_EventGadged in PureBasic 4
Verfasst: 02.06.2006 20:16
von a14xerus
ich habe einen code aus PB 3.9 bei PB 4 versucht zu starten...
ein paar änderungen musste ich machen.. und habs auc halleien geschafft, aber was ist in Purebasic 4 der ersatz für
Code: Alles auswählen
Repeat
Event = WaitWindowEvent()
If Event = #PB_EventGadged
GadgetID = EventGadgetID()
???
Verfasst: 02.06.2006 20:28
von ts-soft
Verfasst: 02.06.2006 20:28
von a14xerus
ok, selbst gelöst
//edit
mist ich war zu langsam.. trotzdem danke
Verfasst: 11.07.2006 13:55
von Slut-Hunter
mein Gott ich schäme mich grade zu Grund und Boden, ich probier hier jetzt schon seit über na Stunde dran rum, aber packs ums verrecken nicht auch nur das Grundgerüst hinzukriegen.
Und das Case Beispiel und der Hilfe bringt mich nicht wirklich weiter.
Habs im Moment so.
Code: Alles auswählen
If OpenWindow(0,0,0,800,700,"Bla",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(1,20,20,100,20,"Blablabla")
Repeat
Event = WaitWindowEvent()
Event = #PB_Event_Gadget
If Event = 1
MessageRequester("Ze Fix Scheiss Ding", "funz endlich richtig", #PB_MessageRequester_Ok)
EndIf
Until Event = #PB_Event_CloseWindow
EndIf
End
Verfasst: 11.07.2006 14:14
von Kiffi
Code: Alles auswählen
If OpenWindow(0,0,0,800,700,"Bla",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(1,20,20,100,20,"Blablabla")
Repeat
WaitWindowEvent = WaitWindowEvent()
EventGadget = EventGadget()
Select WaitWindowEvent
Case #PB_Event_Gadget
Select EventGadget
Case 1
MessageRequester("Ze Fix Scheiss Ding", "funz endlich richtig", #PB_MessageRequester_Ok)
EndSelect
Case #PB_Event_CloseWindow
Quit = 1
EndSelect
Until Quit = 1
EndIf
End
Verfasst: 11.07.2006 14:16
von Slut-Hunter
Danke für die Hilfe, aber geht das nur noch mit Case ?
Weil ich kenn das nur mit dem If Kramm
Verfasst: 11.07.2006 14:17
von Kiffi
> Danke für die Hilfe, aber geht das nur noch mit Case ?
nein, Du kannst auch den 'If-Kram' nehmen, wenn Du besser damit
zurechtkommst.
Grüße ... Kiffi
Verfasst: 11.07.2006 14:19
von Slut-Hunter
Ok werde es probieren, danke nochmal.
Gruß Slut-Hunter
Verfasst: 11.07.2006 16:16
von bobobo
nimm den mitgelieferten Visual-Designer ..
der macht Dir ein passendes Gerüst in korrekter PB4-Syntax
(wenn Du die EreignisSchleife in den Optionen anhakst)
Verfasst: 12.07.2006 00:33
von Slut-Hunter
Ok werde es so machen, falls ich es die nächste Stunde nicht hinkrieg, hab extrem viel PB 3.94 Code mit mehreren Threats den ich portieren wollte, hab alles hingekriegt, nur das mit den Event Buttons krieg ich nicht gebacken.
d.H auch nur dieser kleine Test Schnipsel.
Es will einfach nicht aus der Repeat Schleife raus, hab schon alle möglichen kombinationen probiert
mit bei openwindow mit if, dann ohne if.
dann ein paar Endif mehr, bei until mit WaitWindowEvent dann mit EventGadget usw
Code: Alles auswählen
OpenWindow(0,0,0,800,700,"Bla",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
CreateGadgetList(WindowID(0))
ButtonGadget(1,20,20,100,20,"Test1")
ButtonGadget(2,20,40,100,20,"Test2")
Repeat
EventGadget = EventGadget()
WaitWindowEvent = WaitWindowEvent(0)
If EventGadget = 1
MessageRequester("Ze Fix Scheiss Ding", "funz endlich richtig",#PB_MessageRequester_Ok)
EndIf
If EventGadget = 2
MessageRequester("Verdammt", "funz endlich richtig",#PB_MessageRequester_Ok)
EndIf
Until EventGadget = #PB_Event_CloseWindow
End
