Rubrique précédente: ClearScreen ou ClrScr - Effacer l'écranRubrique suivante: MessageBox ou MsgBox – Affiche une fenêtre de boîte de message


InputBox : Créer, afficher et utiliser une fenêtre de boîte de message

Valide sur les plates-formes Windows et Windows CE

La fonction InputBox crée, affiche et commande une fenêtre de message. La fenêtre de message contient une invite définie par l'application, un titre et une zone de texte avec une valeur par défaut définie par l'application, ainsi que les boutons OK et Annuler.

Cette fonction présente le format suivant :

InputBox(
	prompt as String,
	title as String,
	default as String) as Boolean
invite

Indique l'invite à afficher.

titre

Indique le titre de la fenêtre de message.

Par défaut

Indique l'entrée d'invite par défaut. Si la valeur par défaut n'est pas une variable, une erreur de syntaxe est générée.

Remarque : La zone de saisie n'est pas placée au premier plan.

Si vous cliquez sur OK, la fonction renvoie la valeur True et copie le contenu de la zone de texte dans la variable par défaut. Si vous sélectionnez le bouton Annuler, la fonction renvoie la valeur False et laisse la variable par défaut inchangée.

Exemple :

Cet exemple illustre l'utilisation de la fonction InputBox.

Dim TargetPath, Question as string

TargetPath=WindowsDir

Question="Veuillez indiquer le répertoire à utiliser pour l'installation"
if InputBox(Question,"Install",TargetPath) then

	 ' Placez le code de la véritable installation ici...

	 MessageBox("Installation terminée")
else
	 MessageBox("Installation interrompue")
End if

Fin: