InputBox-Funktion (Visual Basic)

Artikel
09/03/2008

Aktualisiert: November 2007

Zeigt eine Eingabeaufforderung in einem Dialogfeld an, wartet auf die Eingabe eines Textes oder auf das Klicken auf eine Schaltfläche und gibt eine Zeichenfolge zurück, die den Inhalt des Textfelds angibt.

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

Parameter

Prompt
Erforderlich. String-Ausdruck, der als Meldung im Dialogfeld angezeigt wird. Die maximale Länge von Prompt beträgt etwa 1024 Zeichen, je nach Breite der verwendeten Zeichen. Wenn Prompt aus mehreren Zeilen besteht, können Sie die Zeilen umbrechen, indem Sie jeweils ein ein Wagenrücklaufzeichen (Chr(13)), ein Zeilenvorschubzeichen (Chr(10)) oder eine Kombination aus Wagenrücklauf und Zeilenvorschub (Chr(13) & Chr(10)) einfügen.
Title
Optional. String-Ausdruck, der in der Titelleiste des Dialogfelds angezeigt wird. Wenn Sie Title nicht angeben, wird der Anwendungsname in der Titelleiste angezeigt.
DefaultResponse
Optional. String-Ausdruck, der im Textfeld standardmäßig angezeigt wird, wenn keine andere Eingabe erfolgt. Wenn Sie DefaultResponse nicht angeben, wird ein leeres Textfeld angezeigt.
XPos
Optional. Ein numerischer Ausdruck, der den Abstand des linken Dialogfeldrands vom linken Bildschirmrand in Pixel angibt. Wenn Sie XPos und YPos weglassen, wird das Dialogfeld auf dem Bildschirm zentriert.
YPos
Optional. Ein numerischer Ausdruck, der den Abstand des oberen Dialogfeldrands vom oberen Bildschirmrand in Pixel angibt. Wenn Sie XPos und YPos weglassen, wird das Dialogfeld auf dem Bildschirm zentriert.

Hinweise

Wenn der Benutzer auf Abbrechen klickt, wird eine Zeichenfolge mit der Länge 0 (null) zurückgegeben.

Wenn Sie außer dem ersten Argument weitere Argumente angeben möchten, müssen Sie die InputBox-Funktion in einem Ausdruck verwenden. Wenn Sie einige Argumente mit einer bestimmten Position nicht angeben möchten, müssen Sie das entsprechende Komma als Trennzeichen beibehalten.

Hinweis:
Die InputBox-Funktion erfordert eine UIPermission-Berechtigung auf der SafeTopLevelWindows-Ebene. Dies könnte sich auf ihre Ausführung in teilweise vertrauenswürdigen Kontexten auswirken. Weitere Informationen finden Sie unter Anfordern von Berechtigungen und UIPermission-Klasse.

Beispiel

In diesem Beispiel werden verschiedene Möglichkeiten aufgezeigt, wie die Benutzer mit der InputBox-Funktion zur Eingabe eines Werts aufgefordert werden können. Wenn die X- und Y-Positionen nicht angegeben werden, wird das Dialogfeld automatisch auf dem Bildschirm horizontal und vertikal zentriert. Die Variable MyValue enthält den eingegebenen Wert, wenn die Benutzer auf OK klicken oder die EINGABETASTE drücken.

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