Объект 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
<- - ->
|
|