InputBox, fonction (Visual Basic)
Mise à jour : novembre 2007
Affiche une invite dans une boîte de dialogue, attend que l'utilisateur tape du texte ou clique sur un bouton, puis retourne le contenu de la zone de texte sous la forme d'une chaîne.
Public Function InputBox( _
ByVal Prompt As String, _
Optional ByVal Title As String = "", _
Optional ByVal DefaultResponse As String = "", _
Optional ByVal Xpos As Integer = -1, _
Optional ByVal YPos As Integer = -1 _
) As String
Paramètres
Prompt
Expression String requise affichée comme message de la boîte de dialogue. La longueur maximale de l'argument Prompt est d'environ 1 024 caractères selon la largeur des caractères utilisés. Si Prompt se compose de plusieurs lignes, vous pouvez séparer les lignes à l'aide d'un retour chariot (13 Chr()), d'un saut de ligne (10 Chr()) ou d'une combinaison des deux (13 Chr()& 10 Chr()).Title
Facultatif. Expression String affichée dans la barre de titre de la boîte de dialogue. Si l'argument Title est omis, le nom de l'application est placé dans la barre de titre.DefaultResponse
Facultatif. Expression String affichée par défaut dans la zone de texte en l'absence de toute autre valeur. Si DefaultResponse est omis, la zone de texte qui s'affiche est vide.XPos
Facultatif. Expression numérique qui spécifie, en pixels, la distance entre le bord gauche de la boîte de dialogue et le bord gauche de l'écran. Si les arguments XPos et YPos sont omis, la boîte de dialogue est centrée par rapport à l'écran.YPos
Facultatif. Expression numérique qui spécifie, en pixels, la distance entre le bord supérieur de la boîte de dialogue et le haut de l'écran. Si les arguments XPos et YPos sont omis, la boîte de dialogue est centrée par rapport à l'écran.
Notes
Si l'utilisateur clique sur Annuler, une chaîne de longueur nulle est retournée.
Si vous souhaitez préciser plus d'informations que celles fournies par le premier argument, vous devez utiliser la fonction InputBox dans une expression. Si vous omettez certains arguments de position, vous devez quand même conserver la virgule de séparation correspondante.
.gif "Remarque") Remarque : |
|---|
La fonction InputBox nécessite UIPermission au niveau SafeTopLevelWindows, ce qui peut affecter son exécution dans les situations où le niveau de confiance n'est pas total. Pour plus d'informations, consultez Demande d'autorisations et UIPermission, classe. |
Exemple
Cet exemple montre comment utiliser la fonction InputBox pour demander à l'utilisateur d'entrer une valeur. Si vous omettez de spécifier les positions de x et de y, les deux axes correspondants sont automatiquement déterminés de manière à centrer la boîte de dialogue. La variable MyValue contient la valeur entrée par l'utilisateur si celui-ci clique sur OK ou appuie sur la touche ENTRÉE.
Dim message, title, defaultValue As String
Dim myValue As Object
' Set prompt.
message = "Enter a value between 1 and 3"
' Set title.
title = "InputBox Demo"
defaultValue = "1" ' Set default value.
' Display message, title, and default value.
myValue = InputBox(message, title, defaultValue)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue
' Display dialog box at position 100, 100.
myValue = InputBox(message, title, defaultValue, 100, 100)
' If user has clicked Cancel, set myValue to defaultValue
If myValue Is "" Then myValue = defaultValue
Configuration requise
Espace de noms :Microsoft.VisualBasic
**Module :**Interaction
**Assembly :**bibliothèque Visual Basic Runtime (dans Microsoft.VisualBasic.dll)