La fonction InputBox
Le sommaire :
La fonction « InputBox » permet de demander à l’utilisateur de saisir une donnée au clavier.
La demande est réalisée par l’intermédiaire de l’affichage d’une fenêtre contenant 3 objets, « Une zone d’édition » pour la saisie, le bouton « Ok » et le bouton « Annuler ».
L’utilisateur peut ainsi saisir l’information qui lui est demandée et valider le bouton « Ok ».
La syntaxe :
InputBox (« Message à afficher », »Titre de la fenêtre »,Variable)
La description :
« Message à afficher » est un texte qui correspond au message situé dans la fenêtre.
Ce message est une chaîne de caractères qui doit être placé entre guillemets sauf s’il est représenté par une variable de type String.
« Titre de la fenêtre » est le titre que doit avoir la barre de titre de la fenêtre.
Le titre est une chaîne de caractères qui doit être placée entre guillemets, sauf s’il s’agit d’une variable de type String.
Variable est une variable qui contiendra la chaîne de caractères saisie par l’utilisateur dans la zone d’édition, il s’agit d’une variable de type String.
Si vous appliquez la syntaxe telle que je viens de vous la présenter, vous ne pourrez pas traiter le cas de figure où l’utilisateur a validé le bouton « Annuler ».
Puisque InputBox est une fonction, elle retourne la valeur « Vrai » si l’utilisateur a validé le bouton « Ok », et la valeur « faux » s’il a valider le bouton « Annuler ».
Il est donc possible d’intégrer la fonction « InputBox » comme condition dans l’embranchement conditionnel « If Then ».
La syntaxe :
If InputBox(‘Message à afficher », »Titre de la fenêtre »,Variable) Then
Traitement à réaliser si l’utilisateur a valider le bouton « Ok ».
Else
Traitement à réaliser si l’utilisateur a valider le bouton « Annuler ».
EndIf
Ici dans cet exemple, dans WORD, nous allons créer un script qui recherche une chaîne de caractères.
Script ChercheChaine ()
; déclaration de la variable qui contiendra la chaîne de
caractères à rechercher
Var String MaChaine
; demande à l'utilisateur de saisir au clavier la chaîne à
rechercher
if InputBox ("Veuillez saisir la chaîne de caractères à
rechercher","Rechercher",MaChaine) then
;
Lance la recherche
FindString (GetCurrentWindow(),MaChaine,s_bottom,s_unrestricted)
; active le curseur PC à l'endroit sur la chaîne de
caractères trouvée
RoutePCToJAWS ()
else
; La saisie de la
chaîne de caractères a été annulée
SayString
("Annulation de la recherche")
EndIf
EndScript
Philippe
BOULANGER