Объект SysDlg
1. Назначение
Представляет системные диалоги для выбора существующего файла для открытия или файла для сохранения.
В разных версиях операционных систем эти диалоги выглядят несколько по-разному, семантика и язык диалога
зависит от операционной системы.
Особое внимание следует обратить на атрибут Filter. Он может оставаться пустым,
а может содержать один или несколько фильтров для файлов. В этом случае он должен содержать несколько
значений, разделенных символом "|". Каждому фильтру соответствует два значения: первое содержит
мнемоническое имя фильтра, понятное пользователю (например, "Файлы баз данных"), а второе - маску или маски
файлов, соответствующих фильтру, причем если масок несколько, то они разделяются символом ";" (например,
"*.dbf;*.dbt,*.db"). В целом, значение этого параметра может быть таким:
"Файлы баз данных|*.dbf;*.dbt,*.db|Файлы XML|*.XML|Все файлы|*.*".
Объект создается при помощи вызова глобальных функций OpenDialog и
SaveDialog. Созданный разными функциями, имеет несколько
различный внешний вид и семантику собственно окна диалога.
2. Методы и атрибуты класса
| Тип |
Имя |
Описание |
| Str |
Title |
RW: Заголовок окна диалога |
| Str |
Filter |
RW: Фильтры для файлов |
| Str |
InitialDir |
RW: Стартовая директория диалога |
| Str |
FileName |
RW: Имя файла: установленное перед выполнением диалога, становится именем файла
по умолчанию; после выполнения диалога содержит имя выбранного файла |
| Bool |
Execute |
Выполнить диалог |
3. Пример использования
Пример использования данного класса на языке VBScript
|
Set Dlg = OpenDialog()
Dlg.Caption = "Введите имя файла"
Dlg.Filter = "Файлы XML|*.xml|Все файлы|*.*"
Dlg.InitialDir = GetInit("XMLDir")
If Not Dlg.Execute() Then
Exit Function
End If
<- - ->
|
|