-
Операторы вызова процедур
Вызов процедуры – это простой оператор, состоящий из идентификатора вызываемой процедуры и списка передаваемых параметров.
-
Оператор безусловного перехода
Оператор безусловного перехода имеет следующий синтаксис:
GoTo Метка
Метка указывает на оператор, на который следует перейти для дальнейшего выполнения программы. Используется в случаях, когда после выполнения некоторого оператора надо выполнить не следующий по порядку, а какой-нибудь другой, отмеченный меткой оператор, например:
GoTo M1
. . . . . .
M1: Оператор
-
Системные диалоговые окна
В VB имеются специальный вид окон – диалоговый, которые бывают двух типов. Модальное диалоговое окно – это окно, из которого нельзя перейти в другое окно, не закрыв его. Оно вынуждает пользователя совершить некоторые действия. Немодальное диалоговое окно позволяет переместить фокус в другое окно без его закрытия.
В VB существует следующие стандартные диалоговые окна:
-
«Открытие файла» для поиска нужного файла;
-
«Сохранить как» для поиска места хранения файла и ввода его имени;
-
«Печать» для настройки режима печати
-
«Цвет» для выбора цветовой палитры;
-
«Шрифт» для выбора и установки шрифта;
Кроме того, имеются диалоговые окна сообщений MsgBox и окна, предназначенные для ввода информации InputBox, которые не требуют проектирования, а вызываются из программы специальными функциями.
-
Диалоговое окно ввода информации InputBox
Достаточно часто в диалоговом окне требуется ввести информацию, которая затем анализируется программой. Для выполнения такого рода в VB можно использовать окно ввода информации InputBox. Это окно вызывается из программы с помощью одноименной функции, которая имеет следующий синтаксис:
InputBox(Приглашение,Заголовок,НачЗначение),
где
Приглашение – это любой текст, который должен находиться в окне ввода. Его назначение – служить подсказкой пользователю, какую информацию он должен ввести в специальное поле ввода, находящееся в этом окне.
Заголовок – это надпись в строке заголовка окна ввода.
НачЗначение – это значение, которое будет введено автоматически, если пользователь будет с этим согласен.
Возвращаемым значение данной функции является информация, вводимая пользователем, которой автоматически приписывает тип String. Например, функция InputBox(”Введите s”,”Ввод данных”,””), использованная в событийной процедуре:
Рrivate Sub Command1_Click()
s=InputBox(”Ввод данных”,”Введите s”,””)
Text1.Text= s
End Sub
вызывает появление диалогового окна
-
Окно сообщения MsgBox
Диалоговое окно сообщения предназначено для выдачи сообщения пользователю. Оно не требует проектирования и вызывается из программы функцией MsgBox(), имеющей следующий синтаксис:
MsgBox(Сообщение[,Кнопки][,Заголовок][,Файл_помощи,Помощь])
Здесь:
Сообщение – обязательный аргумент; строковое выражение, которое и является сообщением или вопросом, обращенным к пользователю. Максимально может содержать около 1024 символов. Если сообщение необходимо разбить на несколько строк, то используются специальные символы кодовой таблицы ASCII: 13 – возврат каретки, 10 – переход на новую строку. Используются они в виде строки Chr(13)+Chr(10), которая добавляется к каждой из разбиваемых строк. Например:
MsgBox (“Вы уже посмотрели, как работает программа?”+Chr(13)+Chr(10)+ “Завершить работу сейчас?”)
Кнопки – необязательный параметр, определяющий внешний вид окна сообщения:
|
Наименование константы |
Набор кнопок в диалоговом окне сообщений |
|
VbOKOnly |
ОК |
|
VbOKCancel |
ОК, Отмена |
|
VbAbortRetryIgnore |
Стоп, Повтор, Пропустить |
|
VbYesNoCancel |
Да, Нет, Отмена |
|
VbYesNo |
Да, Нет |
|
vbRetryCancel |
Повтор, Отмена |
|
VbCritical |
Значок критического состояния
|
|
VbQuestion |
Значок вопроса с предупреждением
|
|
VbExclamation |
Значок
предупреждающего сообщения
|
|
VbInformation |
Значок
информационного сообщения
|
Для того, чтобы задать несколько параметров кнопок и значков одновременно, следует просто сложить соответствующие константы. Например, VbExclamation+ VbAbortRetryIgnore.
Заголовок – необязательный аргумент; строковое выражение, отображаемое в заголовке окна, если он опущен, в заголовке используется имя проекта.
Файл_помощи, Помощь – необязательные аргументы, используются в паре для подключения файла помощи, если используется кнопка Справка.
Параметр Кнопки по умолчанию имеет значение VbOKOnly.
В зависимости от выбора кнопки пользователем данная функция MsgBox возвращает следующие константы:
|
Нажатая кнопка |
Константа |
|
OK |
VbOK |
|
Отмена |
VbCancel |
|
Стоп |
VbAbort |
|
Повтор |
VbRetry |
|
Пропустить |
VbIgnore |
|
Да |
VbYes |
|
Нет |
VbNo |
Если данная функция используется просто как некоторое сообщение пользователю, т.е. нет кнопок и функция не должна возвращать никакого значения, то вместо функции MsgBox() используется команда MsgBox:
MsgBox(”Деление на ноль”).
На Рис. 5 представлен пример работы процедуры, вызывающей окно сообщения с двумя кнопками Да и Нет:
Private Sub Command1_Click()
a = MsgBox("Вы уже посмотрели, как работает_
программа?" & Chr(13)&Chr(10) & "Завершить работу_
сейчас?", vbYesNo + vbQuestion, "Демонстрация_
многострочного сообщения")
If a = vbYes Then Unload Me 'Выгрузить форму
End Sub
Рис. 5 – Пример использования функции MsgBox: