double arrow

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

Функция 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 следует суммировать не более одного значения из каждой группы.


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: