InputBox(сообщение [, заголовок] [, default] [, xpos] [, ypos])

сообщение – строковое выражение, отображаемое как сообщение в диалоговом окне. Может содержать несколько строк. Для разделения строк допускается использование символа возврата каретки (chr(13)), символа перевода строки (chr(10)) или комбинации этих клавиш (chr(13) & chr(10));

заголовок – строковое выражение, отображаемое в строке заголовка диалогового окна. Если этот аргумент опущен, в строку помещается имя приложения;

Default – строковое выражение, отображаемое в поле ввода как используемое по умолчанию, если пользователь не введет другую строку. Если этот аргумент опущен, поле ввода отображается пустым;

Xpos – числовое выражение, задающее расстояние по горизонтали между левой границей диалогового окна и левым краем экрана;

Ypos – числовое выражение, задающее расстояние по вертикали между верхней границей диалогового окна и верхним краем экрана.

В процессе выполнения этой функции появляется диалоговая панель с текстовым полем. В строке заголовка панели будет печататься значение второго аргумента Заголовок$, на самой панели печатается значение аргумента Приглашение$, в текстовом поле печатается значение аргумента ПоУмолчанию$ (если это значение отсутствует, содержимое текстового окна также отсутствует).

Введенная пользователем в текстовом поле строка становится значением функции.

Dim strA As String

Sub Command1_Click()

strA = InputBox (“Введите текст”, ”Функция ОкноВвода”)

Form1.Print strA

End Sub

Рис. 8. Функция InputBox

В процессе выполнения программы в текстовом окне введем строку «Привет!», которая будет присвоена строковой переменной strA и затем напечатана на форме.

Рис. 9. Функция InputBox и результат ее действия

strA=InputBox(«Какие места предпочитаете?», "РЖД", "У окна")

Функция MsgBox (ПанельСообщений). В простейшем случае функция MsgBox может работать в режиме оператора и использоваться для вывода сообщений не на форме, а на специальной панели сообщений. Синтаксис функции в режиме оператора использует запись аргументов без скобок:

MsgBox Сообщение$ [, Параметры] [, Заголовок$]

Строка Сообщение$ выводится на панели сообщений, аргумент Параметры определяет внешний вид панели, а строка Заголовок$ печатается в строке заголовка панели. Последние два аргумента, заключенные в квадратные скобки, не являются обязательными.

Действие функции MsgBox в операторной форме заключается в том, что на экране появляется окно сообщений. После нажатия кнопки Ok на панели сообщений выполнение программы продолжается.

В качестве примера использования функции рассмотрим простейшую программу, выводящую на панель сообщений слово «Привет!». Следует обратить внимание на необходимость вывода запятой вместо отсутствующего аргумента.

Private Sub Command_Button1_Click()

MsgBox "Привет!", , "Функция ПанельСообщений"

End Sub

Рис. 10. Функция MsgBox (ПанельСообщений)

В случае записи аргументов в скобках, функция MsgBox получает определенное значение, которое может быть присвоено какой-либо переменной. Синтаксис функции в этом случае следующий:

MsgBox(Сообщение$ [, Параметры] [, Заголовок$][, файл_справки, раздел])

Внешний вид панели сообщений можно менять, используя различные значения параметров. На панели можно разместить пиктограммы разных видов и несколько наборов управляющих кнопок. Задать определенную пиктограмму или комбинацию кнопок можно как при помощи служебных слов, так и при помощи числовых кодов.

Таблица 5. Значения Параметров, определяющие вид панели сообщений

Объект панели сообщений	Код	Пиктограмма
vbCritical	16
vbQuestion	32
vbExclamation	48
vbInformation	64

Объект панели сообщений	Код	Набор кнопок
	0	ОК
	1	ОК, Отмена
	2	Стоп, Повтор, Пропустить
	3	Да, Нет, Отмена
	4	Да, Нет
	5	Повтор, Отмена