Seite 1 von 1
button klicken
Verfasst: 16.09.2006 18:36
von Mathias-Kwiatkowski
wie bekomme ich das nochmal hin ?
#beenden ist ein button, wenn man darauf klickt soll er halt beenden
Repeat
EventID = WindowEvent()
If EventID<>0
If #beenden
End
EndIf
EndIf
Until EventID = #PB_Event_CloseWindow
End
so gehts leider nicht
Re: button klicken
Verfasst: 16.09.2006 18:47
von Kiffi
Code: Alles auswählen
Enumeration
#Window
#Button
EndEnumeration
If OpenWindow(#Window, #PB_Ignore, #PB_Ignore, 300, 300, "", #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
If CreateGadgetList(WindowID(#Window))
ButtonGadget(#Button, 5, 5, 290, 290, "Beenden")
Repeat
WaitWindowEvent = WaitWindowEvent()
EventGadget = EventGadget()
Select WaitWindowEvent
Case #PB_Event_Gadget
Select EventGadget
Case #Button
Quit = #True
EndSelect
Case #PB_Event_CloseWindow
Quit = #True
EndSelect
Until Quit = #True
EndIf
EndIf
Grüße ... Kiffi
Re: button klicken
Verfasst: 16.09.2006 20:23
von a14xerus
Oder mit if:
Code: Alles auswählen
Event = WaitWindowEvent(10)
WindowID = EventWindow()
GadgetID = EventGadget()
EventType = EventType()
MenuID = EventMenu()
If Event
If Event = #PB_Event_Menu
If MenuID = #Menueintrag01
;...
Endif
ElseIf Event = #PB_Event_Gadget
If GadgetID = #Gadget01
;...
Elseif Gadgetid = #gadget01
;...
Endif
Endif
Endif
Re: button klicken
Verfasst: 17.09.2006 20:21
von Kiffi
> wie bekomme ich das nochmal hin ?
sich mal zu bedanken tut nicht weh.
