Créer une fenêtre.

[falsam]

Un tout petit tutoriel pour ceux qui codent des jeux 2D fullscreen et qui ne savent pas créer une simple fenêtre applicative.

Au lieu d'utiliser la fonction OpenScreen(), vous allez créer la fenêtre d'une application avec la fonction OpenWindow()

Documentation : http://www.purebasic.com/french/documen ... indow.html

Deux façon de faire :

■ A l'ancienne.

Code : Tout sélectionner

Enumeration Window
  #MainForm
EndEnumeration

;Mise en place de la fenêtre de l'application
OpenWindow(#MainForm, 0, 0, 500, 250, "Premiere feneêtre", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)      

Repeat : Until WaitWindowEvent(10) = #PB_Event_CloseWindow

■ La méthode procédurale associée à des déclencheurs d'événements est plus moderne et souvent utilisée dans des langages comme JavaScript, Php et autres.

Code : Tout sélectionner

Enumeration Window
  #MainForm
EndEnumeration

;Plan de l'application
Declare Start()
Declare Exit()

Start()

Procedure Start()
  ;Mise en place de la fenêtre de l'application
  OpenWindow(#MainForm, 0, 0, 500, 250, "Premiere feneêtre", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)       
  
  ;Procédure à déclencher quand on quitte l'application
  BindEvent(#PB_Event_CloseWindow, @Exit())
  
  Repeat : WaitWindowEvent() : ForEver
EndProcedure

Procedure Exit()
  End
EndProcedure

[SPH]

Ca, c'est pour moi. Merci