
Also - irgendwie verstehe ich nicht, wie das mit dem Visual Designer gemacht werden soll.
Erstellt man ein Fenster und setzt einen Button darauf, erhält man in etwa den folgenden Code.
Code: Alles auswählen
Global Window_Main
Global Button_Open
Procedure OpenWindow_Main()
Window_Main = OpenWindow(#PB_Any, 0, 0, 400, 280, "", #PB_Window_SystemMenu)
Button_Open = ButtonGadget(#PB_Any, 10, 10, 65, 25, "Button")
EndProcedure
Procedure Window_Main_Events(event)
Select event
Case #PB_Event_CloseWindow
ProcedureReturn #False
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
ProcedureReturn #True
EndProcedure
OpenWindow_Main()
Repeat
event = WaitWindowEvent()
Until Window_Main_Events(event) = #False
End
Gibt es evtl. ein Tutorial?
Gruß JKG