from menu:
New Form - Switch Code
then change code to this:
Code: Select all
;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;
Enumeration FormWindow
#Window_0
EndEnumeration
Enumeration FormGadget
#Button_0
EndEnumeration
Procedure OpenWindow_0(x = 0, y = 0, width = 600, height = 400)
OpenWindow(#Window_0, x, y, width, height, "", #PB_Window_SystemMenu)
ButtonGadget(#Button_0, 40, 30, 225, 50, "A=a")
EndProcedure
Procedure Window_0_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
Design View - Switch Code
now has bug:
Code: Select all
line7:Global ButtonGadget(#Button_0, 40, 30, 225, 50, "A
line16:ButtonGadget(#Button_0, 40, 30, 225, 50, "A = ButtonGadget(#PB_Any, 40, 30, 225, 50, "A=a")