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
Indique l'invite à afficher.
Indique le titre de la fenêtre de message.
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:
|
Copyright © 2014 CA Technologies.
Tous droits réservés.
|
|