Funzione InputBox (Visual Basic)

Articolo
09/12/2008

Aggiornamento: novembre 2007

Visualizza un messaggio in una finestra di dialogo, attende che l'utente immetta del testo o scelga un pulsante, quindi restituisce una stringa che include il contenuto della casella di testo.

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

Parametri

Prompt
Obbligatorio. Espressione String che costituisce il messaggio visualizzato nella finestra di dialogo. La lunghezza massima di Prompt è di circa 1024 caratteri e dipende dalla larghezza dei caratteri utilizzati. Se Prompt è costituito da più righe, è possibile separare le righe utilizzando un carattere di ritorno a capo (Chr(13)), un carattere di avanzamento riga (Chr(10)) oppure una combinazione di caratteri di ritorno a capo/avanzamento riga (Chr(13) e Chr(10)) tra una riga e l'altra.
Title
Facoltativo. Espressione String visualizzata sulla barra del titolo della finestra di dialogo. Se Title viene omesso, sulla barra del titolo verrà indicato il nome dell'applicazione.
DefaultResponse
Facoltativo. Espressione String visualizzata nella casella di testo come risposta predefinita se non viene fornito alcun input. Se DefaultResponse viene omesso, la casella di testo visualizzata sarà vuota.
XPos
Facoltativo. Espressione numerica che specifica in pixel la distanza tra il bordo sinistro della finestra di dialogo e il bordo sinistro dello schermo. Se XPos e YPos vengono omessi, la finestra di dialogo risulterà posizionata al centro dello schermo.
YPos
Facoltativo. Espressione numerica che specifica in pixel la distanza tra il bordo superiore della finestra di dialogo e il bordo superiore dello schermo. Se XPos e YPos vengono omessi, la finestra di dialogo risulterà posizionata al centro dello schermo.

Note

Se si sceglie Annulla, verrà restituita una stringa di lunghezza zero.

Se si desidera specificare ulteriori argomenti oltre al primo, è necessario utilizzare la funzione InputBox in un'espressione. Se vengono omessi gli argomenti della posizione, sarà necessario mantenere la corrispondente virgola di delimitazione.

Nota:
La funzione InputBox richiede UIPermission a livello di SafeTopLevelWindows, che può influenzare l'esecuzione in situazioni di attendibilità parziale. Per ulteriori informazioni, vedere Richiesta di autorizzazioni e Classe UIPermission.

Esempio

Nell'esempio seguente vengono illustrati vari modi per richiedere l'immissione di un valore mediante la funzione InputBox. Se le posizioni x e y vengono omesse, la finestra di dialogo risulterà automaticamente centrata rispetto ai relativi assi. La variabile MyValue conterrà il valore immesso dall'utente se viene scelto OK o premuto il tasto INVIO.

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