Текстовое поле TextBox

Текстовое поле TextBox может использоваться для вывода информации в любом месте формы. Позиция элемента управления может устанавливается как при разработке формы так и в процессе выполнения программы:

Text1.Top=Y

Text1.Left=X

Text1.Text = “текст”

Окно диалога MessageBox

Окно MessageBox подобно окну InputBox и служит для вывода информации. Этот компонент широко используется для вывода различных сообщений в приложениях Windows.

MessageBox можно вызвать как команду и как функцию.

Синтаксис команды:

MsgBox Prompt [, Buttons] [,Title] [, Helpfile, Context]

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

<Переменная >= MsgBox (Prompt [, Buttons] [,Title] [, Helpfile, Context]

Пример 3.1:

Команда (рис.3.5):

MsgBox “Здравствуй, товарищ!”, vbExclamation, “Приветствие”.

Функция:

Text=MsgBox (“Конец игры?”, vbCritical, “End”)

Параметры Prompt, Title, Helpfile, Context имеют то же значение, как и в функции InputBox.

Параметр Buttons определяет состав кнопок в окне. Он формируется из нескольких частей:

Buttons = Button + Icon + Default + Modal +Extras

где Button – количество кнопок и их состав;

Icon – вид пиктограммы;

Default – определяет, какая кнопка активна;

Modal – вид диалогового окна (окно приложения или системы). Модальность означает, что выполнение приложения возможно только после закрытия окна;

Extras – дополнительные свойства.

По умолчанию выводятся кнопки ОК и Отмена.

Значения категорий параметра Buttons приведены в табл. 3.6

Пример 3.2. Формирование параметра Buttons.

Type=4+32+256+1

MsgBox «Сообщение», Type, «Заглавие».

При данном коде в окне отображаются кн. Yes и No (код 4), пиктограмма Warning Query (код 32), активна кнопка No (код 256), окно модальное (код 1).

Таблица 3.6

Константы параметра Buttons

Код	Константа	Значение
Константы категории Button
0	(vbOkOnly)	Выводится только кнопка ОК
1	(vbOkCancel)	Выводится кнопка ОК и Cancel
2	(vbAbortRetryIgnore)	Выводится кнопка Abort, Retry, Ignore
3	(vbYesNoCancel)	Выводится кнопка Yes, No, Cancel
4	(vbYesNo)	Выводится кнопка Yes, No
5	(vbRetryCancel)	Выводится кнопка Retry, Cancel
Константы категории Icon
16	VbCritical	Отображает пиктограмму Critical Message
32	VbQuestion	Отображает пиктограмму Worning Query (запрос)
48	VbExclamation	Отображает пиктограмму Worning Message (предупреждение)
64	vbInformation	Отображает пиктограмму Information Message (информация)
Константы категории Default
0	vbDefaultButton1	по умолчанию активна первая кнопка
256	vbDefaultButton2	по умолчанию активна вторая кнопка
512	vbDefaultButton3	по умолчанию активна третья кнопка
768	vbDefaultButton4	по умолчанию активна четвертая кнопка
Константы категории Modal
1	vbModal	модальное диалоговое окно приложения;
4096	vbSystemModal	модальное диалоговое окно системы
Константы категория Extras
16384	vbMsgBoxHelpButton	дополнительная кнопка для справки
65536	vbMsgBoxSetForeground	отображение диалогового окна в фоновом режиме
524288	vbMsgBoxRight	текст выровнен по правому краю
1048576	vbMsgBoxRtlReading	текст отображается справа налево

Управляющий элемент Сетка (MsFlexsGrid) используется, как правило, для вывода массивов. С принципом использования сетки мы познакомимся в разделе 7.