Функция InputBox
Отображает приглашение в диалоговом окне, ждет, пока пользователь введет текст или нажмет кнопку, и возвращает строку с содержимым текстового поля.
Синтаксис
InputBox(prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ])
В синтаксисе функции InputBox представлены следующие именованные аргументы:
| Part | Описание |
|---|---|
| сообщение | Обязательный аргумент. Строковое выражение, отображающееся в диалоговом окне. Максимальная длина строки аргумента сообщение составляет приблизительно 1024 знака и зависит от их ширины. Если запрос состоит из нескольких строк, можно разделить строки с помощью символа возврата каретки (Chr(13)), символа канала строк (Chr(10)) или сочетания символов возврата и строки каретки ((Chr(13) & (Chr(10)) между каждой строкой. |
| заголовок | Необязательный аргумент. Строковое выражение, отображаемое в заголовке диалогового окна. Если аргумент заголовок пропущен, в заголовке выводится имя приложения. |
| default | Необязательный параметр. Строковое выражение, отображаемое в текстовом поле в качестве ответа по умолчанию, если ввод вообще не будет выполнен. Если пропустить аргумент default, соответствующее текстовое поле отображается пустым. |
| xpos | Необязательный параметр. Числовое выражение, задающее в твипах расстояние по горизонтали от левого края диалогового окна до левого края экрана. Если аргумент xpos пропускается, диалоговое окно выравнивается по горизонтальной оси. |
| ypos | Необязательный параметр. Числовое выражение, задающее в твипах расстояние по вертикали от верхнего края диалогового окна до верхнего края экрана. Если аргумент ypos пропускается, диалоговое окно позиционируется по вертикальной оси и отстоит от верхнего края окна примерно на треть от высоты экрана. |
| файл_справки | Необязательный аргумент. Строковое выражение, определяющее файл, в котором содержится контекстная справка для данного диалогового окна. Если задан аргумент файл_справки, необходимо также указать аргумент контекст. |
| контекст | Необязательный аргумент. Числовое выражение, представляющее собой номер контекста, присвоенный автором справки соответствующему разделу. Если задан аргумент контекст, необходимо также указать аргумент файл_справки. |
Примечания
Если одновременно указаны аргументы файл_справки и контекст, пользователь может нажать клавишу F1 (Windows) или HELP (Macintosh) для просмотра раздела справки, соответствующего аргументу контекст. Некоторые ведущие приложения, например Microsoft Excel, автоматически добавляют кнопку Справка в диалоговое окно. Если пользователь нажимает кнопку ОК или нажимает клавишу ВВОД, функция InputBox возвращает все, что находится в текстовом поле. Если пользователь выбирает Отмена, функция возвращает строку нулевой длины ("").
Текстовое поле принимает только 255 символов. Возвращаемая строка усекается до 254 символов.
Текстовое поле не принимает разрывы строк, например SHIFT+ВВОД. Если пользователь вставляет текст с разрывом строки в текстовое поле, текст усекается при разрыве строки.
Примечание.
Чтобы задать больше чем один первый именованный аргумент, необходимо использовать функцию InputBox в выражении. Чтобы пропустить некоторые из позиционных аргументов, нужно вставить соответствующие запятые.
Пример
В этом примере показывается различные способы использования функции InputBox, чтобы пригласить пользователя ввести значение. Если позиции x и y пропустить, диалоговое окно будет автоматически центрироваться относительно соответствующих осей. Переменная MyValue содержит значение, введенное пользователем, если пользователь нажимает кнопку ОК или нажимает клавишу ВВОД. Если пользователь выбирает Отмена, возвращается строка нулевой длины.
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)
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.