Функция MsgBox
Wend
Обратите внимание: повторное использование функции Dir без аргументов возвращает имя следующего файла из папки, адрес которой был задан до этого (Dir(Path)).
3. Если первую строку предыдущего кода записать в виде:
Path = "C:\St\*.xls"
то получим список Excel-файлов.
4. Следующий код проверяет наличие папки и выдает соответствующее сообщение:
Path = "C:\St"
Папка = Dir(Path, vbDirectory) ‘возвращает имя папки (“St”, _ если она существует, и пусто – в противном случае)
If Папка <> ”” Then MsgBox “Папка существует!” _
Else MsgBox “Папка не существует!”
В наших примерах мы не раз использовали для вывода сообщений функцию MsgBox. Рассмотрим её подробнее.
Функция MsgBox выводит на экран диалоговое окно с сообщением и кнопками, а затем возвращает значение типа Integer, указывающее, какую кнопку нажал пользователь.
MsgBox (prompt [, buttons ] [, title ] [, helpfile, context ])
Синтаксис функции MsgBox содержит следующие именованные аргументы:
Аргумент | Описание |
prompt | Сообщение в диалоговом окне. Может состоять из нескольких строк. Для разделения строк можно использовать символ возврата каретки (Chr(13)), перевода строки (Chr(10)) или комбинацию этих символов (Chr(13) & Chr(10)) |
buttons | Числовое выражение, представляющее собой СУММУ значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку и модальность окна сообщения. Значение по умолчанию равно 0 (отображается только кнопка ОК) |
title | Заголовок диалогового окна |
helpfile | Имя файла, содержащего справочные сведения. Если этот аргумент указан, необходимо указать также аргумент context |
context | Номер соответствующего раздела справочной системы. Указывается вместе с аргументом helpfile |
Допустимые значения аргумента buttons:
|
|
Константа | Значение | Описание |
vbOKOnly | Отображается только кнопка OK. | |
vbOKCancel | Отображаются кнопки OK и Отмена (Cancel). | |
vbAbortRetryIgnore | Отображаются кнопки Прервать (Abort), По-вторить (Retry) и Пропустить (Ignore). | |
vbYesNoCancel | Отображаются кнопки Да (Yes), Нет (No) и Отмена (Cancel). | |
vbYesNo | Отображаются кнопки Да (Yes) и Нет (No). | |
vbRetryCancel | Отображаются кнопки Повторить (Retry) и Отмена (Cancel). | |
vbCritical | В окне сообщения отображается значок "Критическое сообщение". | |
vbQuestion | В окне сообщения отображается вопросительный знак. | |
vbExclamation | В окне сообщения отображается восклицательный знак. | |
vbInformation | В окне сообщения отображается знак "Информация". | |
vbDefaultButton1 | Основной является первая кнопка. | |
vbDefaultButton2 | Основной является вторая кнопка. | |
vbDefaultButton3 | Основной является третья кнопка. | |
vbDefaultButton4 | Основной является четвертая кнопка. | |
vbApplicationModal | Модальное окно на уровне приложения: чтобы продолжить работу с текущим приложением, необходимо ответить на данное сообщение. | |
VbSystemModal | Модальное окно на уровне системы: все приложения будут недоступны до тех пор, пока пользователь не ответит на данное сообщение. |
Первая группа значений (0–5) указывает число и тип кнопок, отображаемых в окне диалога.
|
|
Вторая группа (16, 32, 48, 64) задает тип используемого значка.
Третья (0, 256, 512) определяет кнопку, которая является основной, а четвертая (0, 4096) модальность окна сообщения. При определении значения аргумента buttons следует суммировать не более одного значения из каждой группы.