Lorsque l'on clique sur un menucaseàcocher, celui-ci s'enclenche 2 fois :
[php]
Globale
fenêtre est un formulaire, hauteur vaut 170, largeur vaut 350, titre vaut "Ma première fenêtre"
b1 est un bouton, visible vaut "oui", x vaut 255, y vaut 100, texte vaut "Push !"
phrase est une étiquette, visible vaut "oui", x vaut 20, y vaut 10, texte vaut "Bonjour et bienvenue !"
test est un xtableau, visible vaut "oui", x vaut 20, y vaut 30, hauteur vaut 50, largeur vaut 300
m1 est un menu, visible vaut "oui", texte vaut "Fenêtre"
sm2 est un menucaseàcocher, visible vaut "oui", texte vaut "Push !", valeur vaut "vrai"
Principal :
début
Ajoute b1 & phrase & test & m1 dans fenêtre
Ajoute sm2 dans m1
Fais réagir sm2 à "clic souris" pour Envoyer
Fais réagir fenêtre à "clic souris" pour Quitter
// Boucle infinie
Tant que vrai, temporise
Envoyer :
début
Si (valeur de sm2) = "faux", affiche "La case n'est pas cochée."
Si (valeur de sm2) = "vrai", affiche "La case est cochée."
Reviens
Quitter :
début
Termine
[/php]
Une remarque :
l'espèce menucaseàcocher ne devrait-elle pas plutôt s'appeler sousmenucaseàcocher ?
[php]
Globale
fenêtre est un formulaire, hauteur vaut 170, largeur vaut 350, titre vaut "Ma première fenêtre"
b1 est un bouton, visible vaut "oui", x vaut 255, y vaut 100, texte vaut "Push !"
phrase est une étiquette, visible vaut "oui", x vaut 20, y vaut 10, texte vaut "Bonjour et bienvenue !"
test est un xtableau, visible vaut "oui", x vaut 20, y vaut 30, hauteur vaut 50, largeur vaut 300
m1 est un menu, visible vaut "oui", texte vaut "Fenêtre"
sm2 est un menucaseàcocher, visible vaut "oui", texte vaut "Push !", valeur vaut "vrai"
Principal :
début
Ajoute b1 & phrase & test & m1 dans fenêtre
Ajoute sm2 dans m1
Fais réagir sm2 à "clic souris" pour Envoyer
Fais réagir fenêtre à "clic souris" pour Quitter
// Boucle infinie
Tant que vrai, temporise
Envoyer :
début
Si (valeur de sm2) = "faux", affiche "La case n'est pas cochée."
Si (valeur de sm2) = "vrai", affiche "La case est cochée."
Reviens
Quitter :
début
Termine
[/php]
Une remarque :
l'espèce menucaseàcocher ne devrait-elle pas plutôt s'appeler sousmenucaseàcocher ?