<< Retour au sommaire

 

 

La fonction InputBox

 

 

 

Le sommaire :

  1. Présentation.
  2. Un exemple simple.
  3. Un exemple plus élaboré.

 

 

Présentation

 

La fonction InputBox permet de retourner une chaîne de caractères que l’utilisateur saisit au clavier.

Elle affiche à l’écran une fenêtre comportant une zone d’édition, un bouton « Ok » et un bouton « Annuler ».

 

La syntaxe :

MaVariableChaîne = InputBox(Message,Titre)

 

MaVariableChaîne est une variable de type chaîne de caractères et qui reçoit la chaîne de caractères saisie par l’utilisateur. Cependant, si l’utilisateur clique sur le bouton « Annuler », la valeur retournée est false.

 

Message est le message à afficher dans la fenêtre.

 

Titre est le titre de la fenêtre.

 

Remarque :

Vous pouvez optionnellement rajouter un troisième argument, il s’agit d’une chaîne de caractères à afficher dans la zone d’édition.

 

Exemple :

Age = InputBox ("Quel est votre âge ? ","contrôle parental","18")

 

-         Ici, on affiche 18 ans dans la zone d’édition, ce sera donc la valeur par défaut…

 

 


Un exemple simple

 

Voici un exemple qui demande à l’utilisateur de s’identifier.

Je vais vous dire un secret, le mot de passe est « toto » en petites lettres.

 

Selon la saisie de l’utilisateur, un message est affiché à l’écran :

  1. Le mot de passe est correct, une boîte de message accueille l’utilisateur.
  2. Le mot de passe est incorrect, une boîte de message rejette l’utilisateur.

 

Afficher le premier 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>Identification</title>

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

<body>

<!-- écriture du titre en XHTML -->

<h1>Premier essai avec InputBox</h1>

<script type="text/VBscript">

' Interroge l'utilisateur

MotDePasse = InputBox ("Saisissez le mot de passe : ","Identification")

' vérification de la réponse

If MotDepasse = "toto" then

 ' Le mot de passe est correct

 MsgBox "Bravo, vous êtes identifiés."

else

 ' Le mot de passe est incorrect

 MsgBox "Désolé, je ne vous connais pas..."

End If

</script>

<!-- affichage d'un paragraphe en XHTML

<p>Merci de votre visite !</p>

</body>

</html>

 

 


Un exemple plus élaboré

 

Bon, en reprenant l’exemple précédent, nous allons cette fois prendre en compte le cas de figure où l’utilisateur clique sur le bouton « Annuler » !

(Le mot de passe est toujours « toto »…)

 

Afficher le deuxième 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>Identification</title>

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

<body>

<!-- écriture du titre en XHTML -->

<h1>Deuxième essai avec InputBox</h1>

<script type="text/VBscript">

' Interroge l'utilisateur

MotDePasse = InputBox ("Saisissez le mot de passe : ","Identification")

' vérification de la réponse

If MotDepasse = "toto" then

 ' Le mot de passe est correct

 MsgBox "Bravo, vous êtes identifiés."

else

 If MotDePasse=false then

  ' l'utilisateur a annulé

  MsgBox "Opération annulée par l'utilisateur"

 else

  ' Le mot de passe est incorrect

  MsgBox "Désolé, je ne vous connais pas..."

 End If

End If

</script>

<!-- affichage d'un paragraphe en XHTML

<p>Merci de votre visite !</p>

</body>

</html>

 

Philippe BOULANGER