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

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

Для ввода данных используется функция InputBox. Функция возвращает введенное значение. Значение преобразуется к типу выражения, в котором вызывается InputBox.

Синтаксис функции:

InputBox (prompt [, title ] [, default ] [, xpos ] [, ypos ]), где

prompt – комментарий к вводу информации;

title – текст заголовка окна;

default - значение по умолчанию для строки ввода;

xpos, ypos - координаты верхнего левого угла окна.

Пример. MyValue = InputBox ("Введите Х", "Заголовок", "0", 500, 300). Вид этого окна приведен на рис. 4.1.

Рис. 4.1. Пример окна InputBox

Функция MsgBox используется для вывода диалогового окна сообщения. Синтаксис ее применения следующий:

MsgBox сообщение [, тип окна ] [, заголовок окна ], где:

сообщение - текст сообщения;

заголовок окна - текст заголовка диалогового окна;

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

Пример. MsgBox «Закончить?», 36, «Пример окна MsgBox».

В данном операторе значение аргумента 36 является суммой 32 и 4 (32 - вывод пиктограммы с вопросительным знаком, 4 - кнопки «Yes» и «No»). Вид этого окна приведен на рис 4.2.

Рис. 4.2. Пример окна MsgBox

Функция MsgBox в зависимости от нажатой кнопки из списка возможных отображаемых кнопок может возвращать значения, приведенные в таблице 4.2. Эти значения можно использовать для анализа результата работы пользователя с окном MsgBox.

Таблица 4.1.

Значения основных констант диалога MsgBox и их описание

Группа	Значение типа	Константа	Описание
		vbOKOnly	Выводить только кнопку ОК
	vbOKCancel	Выводить кнопки ОК и Cancel
	vbAbortRetryIgnore	Выводить кнопки Abort, Retry, Ignore
	vbYesNoCancel	Выводить кнопки Yes, Nо, Саnсеl
	vbYesNo	Выводить кнопки Yes, Nо
	vbRetryCancel	Выводить кнопки Retry, Саnсеl
		vbCritical	Выводить пиктограмму "Стоп"
	vbQuestion	Выводить пиктограмму "?"
	vbExclamation	Выводить пиктограмму "!"
	vbInformation	Выводить пиктограмму информации
		vbDefaultButton1	Кнопка по умолчанию - первая
	vbDefaultButton2	Кнопка по умолчанию - вторая
	vbDefaultButton3	Кнопка по умолчанию - третья
		vbApplicationModal	Программное ведущее диалоговое окно
	vbSystemModal	Системное ведущее диалоговое окно

Таблица 4.2.

Константы, возвращаемые диалогом MsgBox

Константа	Значение	Выбираемая кнопка
VbOK		OK
VbCancel		Cancel
VbAbort		Abort
VbRetry		Retry
VbIgnore		Ignore
VbYes		Yes
VbNo		No

Ниже приводится полный текст программы (листинг) решения квадратного уравнения с использованием встроенных диалоговых окон (рис. 4.3).

'Решение квадратного уравнения'