Основы VBA. Часть 9

Отображение диалоговых окон Open и Save As

Диалоговое окно Open (Открыть) позволяет пользователю задать диск, пап ку, расширение и имя файла.
Диалоговое окно Save As (Сохранить как) внешне совпадает с окном Open, за исключением заголовка, кроме того, имена файлов затемнены. Во время выполнения, когда пользователь выбирает файл и закрывает окно диалога, свойство FileName (Имя файла) используется для получения имени выбран ного файла.
Чтобы отобразить диалоговое окно Open, следует:
1. Задать список фильтров файлов, который отображается в списке Files of type (Файлы типа).
Это можно сделать, установив значение свойства Filter (Фильтр), ис пользуя следующий формат:
description1 ] filter1 \ description2 \ filter2…
Description — это строка, отображаемая в списке, например «Text Files (*.txt).
Filter — это действительный фильтр файлов, например, «*.txt». Группы description \ filter должны разделяться вертикальной чертой (|).
2. Методом showopen отобразить диалоговое окно.
После выбора пользователем файла, используя значение свойства FileName, получить имя выбранного файла.
Во всех общих диалоговых окнах, если значение свойства CancelError (Ошибка отмены) равно True, генерируется ошибка в случае, если пользова тель выполняет щелчок на кнопке Cancel окна диалога. Можно выявить, что была нажата именно кнопка Cancel, перехватывая ошибку при отображении диалогового окна.
Следующий код отображает диалоговое окно Open и использует имя вы бранного файла в качестве параметра процедуры открытия файла:
Private Sub mnuFileOpen_Click ()
’ CancelError равно True.
On Error GoTo ErrHandler
’ Установка фильтров.
CoinmonDialog1.Filter = «All Files (*.*)|*.*[Text_
Files (*.txt)|*.txt|Batch Files (*.bat)|*.bat»
’Задание фильтра по умолчанию.
CoinmonDialog1.Filterlndex = 2
’Отображение окна диалога Open.
CommonDialog1.ShowOpen
’Вызов процедуры открытия файла.
OpenFile (CoinmonDialogl. FileName)
Exit Sub
ErrHandler:
’ Пользователь нажал кнопку Cancel.
Exit Sub
End Sub