<< Retour au sommaire

 

 

La boîte de message MsgBox évoluée

 

 

 

Le sommaire :

  1. Présentation.
  2. Un exemple.

 

Présentation

 

Dans l’un des manuels précédents, nous avions étudié l’utilisation la plus simple de la boîte de message « MsgBox ».

 

En effet, souvenez-vous, « MsgBox » ne proposait que 2 arguments :

  1. Le message à afficher.
  2. Le titre de la fenêtre.

 

Pour accompagner ces deux informations, la boîte de message affichait naturellement le bouton « Ok ».

 

Eh bien maintenant, nous allons rajouter un troisième argument, il s’agit de l’attribut boutons.

L’attribut boutons est représenté par une constante qui désigne les boutons que l’on désire afficher.

 

La syntaxe :

VariableRésultat = MsgBox ("Votre message",Attribut-boutons,"Le titre")/ici

 

Voici la liste des attributs boutons disponibles :

 

Constantes      Valeurs    Descriptions

 

VBOkOnly 0 Affiche seulement le bouton Ok.

VBOkCancel 1 Affiche les bouton Ok et Annuler.  

vbAbortRetryIgnore 2 Affiche les boutons Abandonner, Réessayer et ignorer.

vbYesNoCancel 3 Affiche les boutons Oui, Non et Annuler.

vbYesNo 4 Affiche les boutons Oui et Non.

vbRetryCancel 5 Affiche les boutons Réessayer et Annuler.

vbCritical 16 Affiche l'icône Message critique.

vbQuestion 32 Affiche l'icône Requête d'avertissement.

vbExclamation 42 Affiche l'icône Message d'avertissement.

vbInformation 64 Affiche l'icône Message d'information.

 

Ah, vous venez de constater que la liste des « attributs boutons «  comportait également des « attribus icônes » !

 

Eh oui, vous pouvez donc placer 4 arguments dans « MsgBox » si vous désirez spécifier  le type de l’icône de la fenêtre…

Tenez, pour poser une question avec l’icône « question » et les boutons « Oui » « Non » :

 

Réponse = MsgBox ("êtes-vous sûr de vouloir m'épouser ? ",vbYesNo,vbQuestion,"Interrogation" surprise")

 

Ensuite, dès que la boîte de message sera validée par l’utilisateur, la variable résultat contiendra la valeur de la réponse.

Vous pourrez donc comparer la variable à une valeur entière ou à une constante. Voici les valeurs et les constantes correspondantes :

 

Constantes     Valeurs     Descriptions

 

VBOk 1 La réponse est Ok.

VBCancel 2 La réponse est Annuler.

vbAbort 3 La réponse est Abandonner.

vbRetry 4 La réponse est Réessayer.

vbIgnore 5 La réponse est Ignorer.

vbYes 6 La réponse est Oui.

vbNo 7 La réponse est Non.

 

 


Un exemple

 

Ici, l’exemple proposé demande à l’utilisateur de saisir son nom.

Si le nom est saisi est que le bouton « Ok » est validé, une confirmation est demandée par l’intermédiaire d’un « MsgBox ».

 

Afficher l’exemple >>

 

Le code :

 

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >

<head>

<title>Présentation</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />

<body>

<h1>Votre nom</h1>

<p>

<script type="text/VBscript">

' demande à l'utilisateur de saisir son nom

nom = InputBox ("Saisissez votre nom : ","Présentez-vous")

' vérifie si l'utilisateur n'a pas cliqué sur "annuler"

If nom <> false then

 ' Ok, il n'a pas cliqué sur "annuler"

 ' alors on lui demande s'il désire afficher son nom dans la page

 confirmation = MsgBox ("êtes-vous sûr de vouloir afficher votre nom dans la page ?",vbYesNo,"Confirmation")

 ' Traitement de la réponse

 If confirmation = vbYes then

  ' Il a répondu "oui"

  ' Affichage du nom dans la page

  document.write "Votre nom est : "+nom

  document.write "<br />Merci de votre confiance !"

 else

  ' il a répondu "non"

  MsgBox "Eh bien, merci pour la confiance !"

 End If

else

 ' Il a annulé au moment de la saisie

 MsgBox "Vous ne vous êtes pas identifiés ! Voyou !"

End If

</script>

<br />

Fin de la page...

</p>

</body>

</html>Le code :

 

Philippe BOULANGER