Wyświetla monit w oknie dialogowym, czeka, aż użytkownik wpisze tekst lub kliknie przycisk, i zwróci ciąg zawierający zawartość pola tekstowego.
Składnia
InputBox ( monit [, tytuł ] [, domyślne ] [, xpos ] [, ypos ] [, helpfile ] [, kontekst ] )
W składni funkcji InputBox występują następujące argumenty:
|
Argument |
Opis |
|
Wierszu |
Argument wymagany. Wyrażenie ciągu wyświetlane jako wiadomość w oknie dialogowym. Maksymalna długość monitu wynosi około 1024 znaków, w zależności od szerokości używanych znaków. Jeśli monit składa się z więcej niż jednego wiersza, możesz rozdzielić linie za pomocą znaku powrotu karetki (Chr(13)), znaku kanału liniowego (Chr(10)) lub kombinacji znaków ze znakiem powrotu karetki (Chr(13) & Chr(10)) między poszczególnymi wierszami. |
|
Tytuł |
Argument opcjonalny. Wyrażenie ciągu wyświetlane na pasku tytułu okna dialogowego. Jeśli tytuł zostanie pominięty, nazwa aplikacji zostanie umieszczona na pasku tytułu. |
|
wartość domyślna |
Argument opcjonalny. Wyrażenie ciągu wyświetlane w polu tekstowym jako odpowiedź domyślna, jeśli nie podano żadnych innych danych wejściowych. Jeśli pole tekstowe zostanie pominięte domyślnie, zostanie wyświetlone puste. |
|
Xpoz |
Argument opcjonalny. Wyrażenie liczbowe określające w twipach poziomą odległość lewej krawędzi okna dialogowego od lewej krawędzi ekranu. Jeśli argument xpos zostanie pominięty, okno dialogowe zostanie wyśrodkowane w poziomie. |
|
ypos |
Argument opcjonalny. Wyrażenie liczbowe określające w twipach pionową odległość górnej krawędzi okna dialogowego od górnej krawędzi ekranu. Jeśli argument "ypos" zostanie pominięty , okno dialogowe zostanie umieszczone w pionie w przybliżeniu o jedną trzecią drogi w dół ekranu. |
|
Helpfile |
Argument opcjonalny. Wyrażenie ciągu identyfikujące plik Pomocy, który ma być używany w celu zapewnienia kontekstowej Pomocy dla tego okna dialogowego. Jeśli podano plik pomocy, kontekst również musi być podany. |
|
Kontekście |
Argument opcjonalny. Wyrażenie liczbowe będące numerem kontekstowym Pomocy przypisanym do odpowiedniego tematu Pomocy przez autora Pomocy. Jeśli kontekst jest podany, plik pomocy również musi być podany. |
Spostrzeżenia
Po podaniu zarówno pliku pomocy , jak i kontekstu użytkownik może nacisnąć klawisz F1 (Windows) lub HELP (Macintosh), aby wyświetlić temat Pomocy odpowiadający kontekstowi. Niektóre aplikacja hosta, na przykład Microsoft Office Excel 2007, również automatycznie dodają przycisk Pomoc do okna dialogowego. Jeśli użytkownik kliknie przycisk OK lub naciśnie klawisz ENTER, funkcja InputBox zwróci dowolną wartość w polu tekstowym. Jeśli użytkownik kliknie przycisk Anuluj, funkcja zwróci ciąg znaków o zerowej długości ("").
Uwaga: Aby określić więcej niż pierwszy nazwany argument, należy użyć funkcji InputBox w wyrażenie. Aby pominąć niektóre argumenty pozycyjne, należy uwzględnić odpowiadający im ogranicznik przecinka.
Przykład
Uwaga: Poniższe przykłady przedstawiają sposób użycia tej funkcji w module języka Visual Basic for Applications (VBA). Aby uzyskać dodatkowe informacje na temat pracy w języku VBA, wybierz pozycję Dokumentacja dewelopera z listy rozwijanej obok przycisku Wyszukaj i wprowadź odpowiednie terminy w polu wyszukiwania.
W tym przykładzie przedstawiono różne sposoby używania funkcji InputBox w celu monitu użytkownika o wprowadzenie wartości. Jeśli pozycja x i y zostaną pominięte, okno dialogowe zostanie automatycznie wyśrodkowane dla odpowiednich osi. Zmienna MyValue zawiera wartość wprowadzona przez użytkownika, jeśli użytkownik kliknie przycisk OK lub naciśnie klawisz ENTER. Jeśli użytkownik kliknie przycisk Anuluj, zostanie zwrócony ciąg znaków o zerowej długości.
Dim Message, Title, Default, MyValue
Message = "Enter a value between 1 and 3" ' Set prompt.
Title = "InputBox Demo" ' Set title.
Default = "1" ' Set default.
' Display message, title, and default value.
MyValue = InputBox(Message, Title, Default)
' Use Helpfile and context.
' The Help button is added automatically.
MyValue = InputBox(Message, Title,,,,"DEMO.HLP", 10)
' Display dialog box at position 100, 100.
MyValue = InputBox(Message, Title, Default, 100, 100)
