Page 1 sur 1

OpenWindow et la version Purebasic 4 beta 7 help

Publié : dim. 26/mars/2006 8:15
par bernard13
bonjour

j'ai probleme avec Purebasic 4 beta 7
j'arrive pas a afficher ma fenetre .....

avant la beta 7 , ca marcher trés bien mais la commande OpenWindow à etait modifier avec la beta 7

j'utiliser ce code pour afficher ma fenetre , mais impossible de l'afficher en beta7

que manque t'il a mon code ?

merci


Code : Tout sélectionner

Enumeration
 #fenetre_0
EndEnumeration 







Procedure test()
  If OpenWindow(#fenetre_0,0,0,800,600,"test Pb,4",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EndIf
EndProcedure


test()

 Repeat
 Select WaitWindowEvent()
  Case #PB_Event_CloseWindow
  fermer=0
 EndSelect 
 Until fermer=0
 End
  

Publié : dim. 26/mars/2006 8:49
par bernard13
probleme resolu
il suffisait de mettre Fermer=1

Publié : dim. 26/mars/2006 9:19
par Polo
bernard13 a écrit :probleme resolu
il suffisait de mettre Fermer=1
La logique (enfin, la mienne :D) voudrait que tu fasse l'inverse :

Code : Tout sélectionner

Enumeration
 #fenetre_0
EndEnumeration

Procedure test()
  If OpenWindow(#fenetre_0,0,0,800,600,"test Pb,4",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EndIf
EndProcedure


test()

 Repeat
 Select WaitWindowEvent()
  Case #PB_Event_CloseWindow
    fermer=1
 EndSelect
 Until fermer=1
 End
 

Publié : lun. 27/mars/2006 9:12
par Patrick88
pense à poster ce genre questions à l'avenir dans "débutant"

stp

:wink: