Встроенные диалоговые окна

Visual Basic содержит два стандартных диалоговых окна

MsgBox и InputBox, каждый из которых может быть

записан в операторном и функциональном форматах.

Функциональный формат предполагает возвращение числового значения, а операторный – нет.

Операторный формат окна сообщений MsgBox имеет

следующий синтаксис:

MsgBox <Сообщение> [,< Атрибуты>] [,< Заголовок>].

Сообщение – это текст в кавычках или выражение,

представляющее содержимое диалога.

Заголовок – строка в заголовке окна MsgBox.

Атрибуты – настройки окна, которые можно задавать

объединением числовых значений или системных констант,

представляющих собой кнопки (OK, Cancel, Yes, No и др.), и значков (пиктограмм).

Например:

MsgBox sin(5/2),,”Результат” ′Только кнопка ОК

MsgBox "Ошибка!",292

′256+32+4 Æ или то же самое в виде констант

MsgBox

"Ошибка!",vbYesNo+vbQuestion+vbDefaultButton2 MsgBox Text1, vbSystemModal

′Модальное окно на уровне системы

Модальное окно на системном уровне не позволяет переключиться на другое окно, пока пользователь не закончит с ним работать.

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

Так, в следующем фрагменте программы переменная rc полу-чает значение 6 или 7 в зависимости от того, какая кнопка была нажата в диалоге MsgBox:

rc = МsgВох("Ошибка! Повторить ввод?", vbExclamation + vbYesNo)

IF rc=6 Then

………..

Else ………..

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

R=InputВох

(<Сообщение>[,<Заголовок>][,<Умолчание>][,x][,y])

Сообщение – строковое информационное сообщение в диалоге.

Заголовок – заголовок окна.

x,y – положение верхнего левого угла диалога.

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

Вэтом диалоге есть только две кнопки ОК и Cancel, предназначенные для подтверждения ввода ОК или отмены Cancel. В первом случае возвращается содержимое поля ввода, которое присваивается переменной R. Если же выполнен щелчок на кнопке Cancel, то возвращается пустая строка (″″). Например, в следующем фрагменте имя пользователя будет сохраняться в переменной Ans, дата рождения – в переменной

God.

Dim Ans As String, God as Date Ans = InputBox ("Как Вас зовут?")

God=InputBox("Введи день, месяц и год через «/»

или «.»")