Funkcja InputBox

Wyświetla monit w oknie dialogowym, pozwalając na wprowadzenie tekstu przez użytkownika. Wprowadzone dane są przypisywane do zmiennej.

Instrukcja InputBox stanowi wygodny sposób wprowadzania tekstu w oknie dialogowym. Zatwierdzenia dokonuje się poprzez kliknięcie przycisku OK lub naciśnięcie klawisza Enter. Wprowadzone dane są zwracane w postaci wartości funkcji. W przypadku zamknięcia okna dialogowego przez kliknięcie przycisku Anuluj, funkcja InputBox zwraca ciąg zerowej długości ("").

Składnia:

InputBox (komunikat As String[, nazwa As String[, domyślny As String[, pozycja_x As Integer, pozycja_y As Integer]]]])

Zwracana wartość:

Ciąg

Parametr:

Komunikat: Ciąg wyświetlany w postaci komunikatu w oknie dialogowym.

Nazwa: Ciąg wyświetlany na pasku tytułu okna dialogowego.

Domyślny: Ciąg wyświetlany w polu tekstowym jako wartość domyślna w przypadku braku innego wpisu.

Pozycja_x: Wyrażenie w postaci liczby całkowitej określające położenie okna dialogowego w poziomie. Pozycja jest wyrażona we współrzędnych bezwzględnych i nie odnosi się do okna aplikacji biurowej.

Pozycja_y: Wyrażenie w postaci liczby całkowitej określające położenie okna dialogowego w pionie. Pozycja jest wyrażona we współrzędnych bezwzględnych i nie odnosi się do okna aplikacji biurowej.

W przypadku pominięcia parametrów pozycja_x i pozycja_y okno dialogowe jest umieszczone centralnie na ekranie. Pozycja jest wyrażona w jednostce twip.

Przykład:

Sub ExampleInputBox

Dim sText As String

    sText = InputBox ("Wpisz zdanie:","Szanowni Państwo")

    MsgBox ( sText , 64, "Potwierdzenie zdania")

End Sub