Code : Tout sélectionner
; ***********************************************************************************************
; AUTHOR : microDevWeb
; PROJECT : PB BOARD
; TEST : main.pb
; VERSION : 1.0
; DESIGNED WITH : PB 5.71
; DATE : 2019/07/04
; ***********************************************************************************************
XIncludeFile "BOARD\PACKAGES\BOARD\BOARD.pbi"
XIncludeFile "BOARD\PACKAGES\BOX\BOX.pbi"
#FORM = 0
#CONTAINER = 0
Define flags = #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget|
#PB_Window_MaximizeGadget|#PB_Window_MinimizeGadget
OpenWindow(#FORM,0,0,800,600,"Test",flags)
ContainerGadget(#CONTAINER,0,0,800,600,#PB_Container_BorderLess)
CloseGadgetList()
Global myBoard.BOARD::BOARD = BOARD::newBoard(#CONTAINER)
Global mt.BOX::MethodBox = BOX::newMethodBox("getName",50,50)
Global v1.BOX::VariableBox = BOX::newVariableBox("name",250,250)
Global v2.BOX::VariableBox = BOX::newVariableBox("name",250,150)
mt\addMeToBoard(myBoard)
v1\addMeToBoard(myBoard)
v2\addMeToBoard(myBoard)
myBoard\build()
Repeat
WaitWindowEvent()
Until Event() = #PB_Event_CloseWindow