Les Messages - WARNING( Temps de lecture estimé à Moins d'une minute)
Bonjour,
avec ce petit exemple nous allons voir comment utiliser la boite message.warning et récuperer les actions du bouton.
Le type d 'action renvoyée du clic du bouton est INTEGER
Il suffit donc de définir une variable INTEGER et de la lire comme ceci :
DIM mareponse AS Integer
mareponse = Message.Warning( ma question? , reponse1 , reponse2 , reponse3 )
vous pouvez maintenant télécharger l 'exemple :
voici le code de l 'application :
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
ME.Center
END
PUBLIC SUB Button1_Click()
DIM mareponse AS Integer
mareponse = Message.Warning( aimez vous les radis? , oui , non , pastrop )
SELECT CASE mareponse
CASE 1
Label2.Text = vous avez cliqué Oui
CASE 2
Label2.Text = vous avez cliqué Non
CASE 3
Label2.Text = pourtant c 'est bon les radis !!!
END SELECT
END
voila pour aujourd 'hui
avec ce petit exemple nous allons voir comment utiliser la boite message.warning et récuperer les actions du bouton.
Le type d 'action renvoyée du clic du bouton est INTEGER
Il suffit donc de définir une variable INTEGER et de la lire comme ceci :
DIM mareponse AS Integer
mareponse = Message.Warning( ma question? , reponse1 , reponse2 , reponse3 )
vous pouvez maintenant télécharger l 'exemple :
voici le code de l 'application :
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
ME.Center
END
PUBLIC SUB Button1_Click()
DIM mareponse AS Integer
mareponse = Message.Warning( aimez vous les radis? , oui , non , pastrop )
SELECT CASE mareponse
CASE 1
Label2.Text = vous avez cliqué Oui
CASE 2
Label2.Text = vous avez cliqué Non
CASE 3
Label2.Text = pourtant c 'est bon les radis !!!
END SELECT
END
voila pour aujourd 'hui