PureBasic

Code : Tout sélectionner

; mis en V4.02 Dobro
#numero_fenetre = 0

OpenWindow ( #numero_fenetre , 400, 100, 400, 300, "Une fenêtre" , #PB_Window_SystemMenu )
; #numero_fenetre permet de donner un numéro à la fenêtre, ici 0
; on a ensuite la position et la taille, le type de la fenêtre et le titre, voir l'aide


; on va maintenant regarder si on appui sur la croix en haut à droite de la fenêtre
; pour cela, il faut regarder les évènements qui se produise sur la fenêtre
; pour récupérer les évènement, il faut utiliser la commande WaitWindowEvent()

; on va donc faire une boucle qui dans laquel on va récupérer les évènements

; la boucle repeat until est une fonction qui permet de répéter le code écrit entre le repeat until jusqu'à ce que la condition placé après le until soit vraie
Repeat
    Evenement = WaitWindowEvent () ; on lit l'évènement qui s'en produit sur la fenêtre, si il n'y a pas d'évènement, le programme attend sur le waitwindowevent jusqu'un évènements se produise
    
     ; Un évènement est représenter par un numéro, chaque numéro correspond à une action
     ; cela va de la souris qui a bougé au clic sur un bouton, etc...
     ; Essayé de cliqué, déplacé la fenêtre, la souris et vous verrez que chaque action correspond à un numéro
     Debug "Un évènement s'est produit sur la fenêtre"
     Debug "Le numéro de l'évènement est :"
     Debug Evenement
    
Until Evenement = #PB_Event_CloseWindow
; si le numéro de l'évènements est égale à celui qui correspond à l'appui sur la croix
; #PB_Event_CloseWindow est le numéro de l'évènement qui correspond à l'appui sur la croix

Debug "Vous avez fermé la fenêtre" 

Code : Tout sélectionner

; testé en 5.0

If OpenWindow (0 , 400, 100, 400, 300, "Une fenêtre" , #PB_Window_SystemMenu )
; on donne 0 au numéro de fenêtre 
; on a ensuite la position et la taille, le type de la fenêtre et le titre, voir l'aide


; on va maintenant regarder si on appui sur la croix en haut à droite de la fenêtre
; pour cela, il faut regarder les évènements qui se produise sur la fenêtre
; pour récupérer les évènement, il faut utiliser la commande WaitWindowEvent()

; on va donc faire une boucle qui dans laquel on va récupérer les évènements

; la boucle repeat until est une fonction qui permet de répéter le code écrit entre le repeat until jusqu'à ce que la condition placé après le until soit vraie
Repeat
		Evenement = WaitWindowEvent () ; on lit l'évènement qui s'en produit sur la fenêtre, si il n'y a pas d'évènement, le programme attend sur le waitwindowevent jusqu'un évènements se produise
		
			; Un évènement est représenter par un numéro, chaque numéro correspond à une action
			; cela va de la souris qui a bougé au clic sur un bouton, etc...
			; Essayé de cliqué, déplacé la fenêtre, la souris et vous verrez que chaque action correspond à un numéro
			Debug "Un évènement s'est produit sur la fenêtre"
			Debug "Le numéro de l'évènement est :"
			Debug Evenement
		
Until Evenement = #PB_Event_CloseWindow
; si le numéro de l'évènements est égale à celui qui correspond à l'appui sur la croix
; #PB_Event_CloseWindow est le numéro de l'évènement qui correspond à l'appui sur la croix

Debug "Vous avez fermé la fenêtre" 

Else

Debug "ça déconne"

Endif