Элемент Кнопка
Элемент Кнопка (CommandButton) очень часто используется при разработке интерфейса. На поверхности кнопки можно разместить надпись или рисунок, или и то и другое.
Свойства элемента Кнопка:
Caption |
Задает текст надписи на кнопке. |
Cancel |
Только одна из кнопок формы может иметь значение этого свойства True. Это должна быть кнопка, выполняющая функции кнопки Cancel (Отмена). Если форма активна, и пользователь нажмет Esc, то будут выполнены действия, связанные с этой кнопкой. |
Default |
Только одна из кнопок формы может иметь значение этого свойства True. Если ни одна из кнопок формы не находится в фокусе, и пользователь нажал Enter, то будут выполнены действия, связанные с этой кнопкой. |
Picture |
Определяет рисунок на поверхности кнопки. Во время выполнения для изменения свойства нужно использовать функцию LoadPicture. Например, Btn1.Picture = LoadPicture("c:\Pic\copy.bmp") |
PicturePosition |
Определяет расположение рисунка относительно надписи. |
События элемента Кнопка:
Click |
Пользователь нажал на кнопку, используя мышь или клавиатуру. |
Стандартные окна ввода и вывода сообщений
Встроенные диалоговые окна представляют собой операторы или функции языка. К ним относятся окно сообщения (MessageBox) и окно ввода (InputBox). Окна диалогов используют системные функции Windows. Поэтому надписи на кнопках, названия полей и другие элементы окон диалога могут отображаться на экране в английском или русском варианте, в зависимости от версии и настроек Windows.
Окно сообщения
Окно сообщения создается функцией MsgBox, которая имеет следующий синтаксис:
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
Функция возвращает значение, соответствующее выбранной пользователем кнопке в окне сообщения. Ниже в таблице приведены значения и имена возвращаемых констант. Имена можно использовать вместо значений в любом месте программы.
Константа |
Значение |
Нажатая кнопка |
vbOK |
1 |
OK |
vbCancel |
2 |
Отмена (Cancel) |
vbAbort |
3 |
Прервать (Abort) |
vbRetry |
4 |
Повторить (Retry) |
vbIgnore |
5 |
Пропустить (Ignore) |
vbYes |
6 |
Да (Yes) |
vbNo |
7 |
Нет (No) |
Параметр prompt обязательный. Это строка, которая выдается в окне сообщения. Её длина ограничена 1024 символами.
Параметр buttons необязательный. Значение параметра - целое число, равное сумме значений, определяющих набор кнопок, коды значков, кнопки по умолчанию в окне сообщения, а также модальность окна. Возможные значения описаны ниже. По умолчанию значение параметра равно 0.
Параметр title задает строку, которая является заголовком окна сообщения. Если параметр отсутствует, то в качестве заголовка используется имя приложения.
Окно сообщений может иметь еще 2 необязательных параметра (helpfile и context), касающихся справочной информации, относящейся к данному сообщению (см. Справку).
Константы, использующиеся при определении параметра buttons:
Наборы кнопок окна сообщения |
|||||
Константа |
Значение |
Описание |
|||
VbOKOnly |
0 |
Окно содержит только кнопку OK. |
|||
VbOKCancel |
1 |
Окно содержит кнопки OK и Cancel (Отмена). |
|||
vbAbortRetryIgnore |
2 |
Окно содержит кнопки Abort (Прервать), Retry (Повторить) и Ignore (Пропустить). |
|||
vbYesNoCancel |
3 |
Окно содержит кнопки Yes (Да), No (Нет) и Cancel (Отмена). |
|||
vbYesNo |
4 |
Окно содержит кнопки Yes (Да) и No (Нет). |
|||
vbRetryCancel |
5 |
Окно содержит кнопки Retry (Повторить) и Cancel (Отмена). |
|||
Пиктограммы окна сообщения |
|||||
Константа |
Значение |
Описание |
|||
vbCritical |
16 |
Добавляет пиктограмму «Критическое сообщение». Часто после такого сообщения программа прекращает работу. |
|||
vbQuestion |
32 |
Добавляет пиктограмму «Запрос». Обычно используется, когда для продолжения работы программы требуется дополнительная информация. |
|||
vbExclamation |
48 |
Добавляет пиктограмму «Предупреждение». |
|||
vbInformation |
64 |
Добавляет пиктограмму «Информация». Чаще всего используется для сообщения о завершении выполнения некоторой задачи. |
|||
Кнопка по умолчанию |
|||||
Константа |
Значение |
Описание |
|||
vbDefaultButton1 |
0 |
Первая. |
|||
vbDefaultButton2 |
256 |
Вторая. |
|||
vbDefaultButton3 |
512 |
Третья. |
|||
vbDefaultButton4 |
768 |
Четвертая. |
|||
Модальность окна |
|||||
Константа |
Значение |
Описание |
|||
vbApplicationModal |
0 |
Модальность уровня приложения. Пока вы не нажмете одну из кнопок окна, вы не сможете вернуться в приложение, породившее это окно. При этом можно переключиться на другое приложение. |
|||
vbSystemModal |
4096 |
Модальность системного уровня. Пока не будет закрыто это окно, никакие приложения не доступны. |
|||
В результате выполнения оператора
Ans = MsgBox("Закончить?", vbYesNo + vbQuestion + _
vbDefaultButton1, "Пример окна MsgBox")
п
оявится
следующее окно сообщения:
Чтобы определить, какая кнопка была нажата, значение переменной Ans анализируется с помощью оператора If: Например,
If Ans = vbYes then UserForm1.Hide