Окна общего диалога

Диалоговое окно Назначение Метод
Open (Открытие файла) Получить имена диска, папки и файла для существующего файла ShowOpen
SaveAs (Сохранение) Получить имена диска, папки и файла для нового файла ShowSave
Print (Печать) Позволить пользователю установить опции для печати ShowPrinter
Font (Выбор шрифта) Позволить пользователю выбрать новый шрифт и стиль ShowFont
Color (Цвет) Позволить пользователю выбрать цвет из палитры ShowColor

 

При открытии файла необходимо задать его полное имя.

pathfile = "C:\WINDOWS\Рабочий стол\primer\primer.txt"

Пример использования CommonDialog для задания полного имени файла.

Методы объекта:

ShowOpen – открывает диалоговое окно загрузки файла с диска;

ShowSave – открывает диалоговое окно сохранения файла на диске.

Свойства объекта:

CancelError – если пользователь закрыл окно, нажав кнопку Отмена, имеет значение True;

DialogTitle – заголовок диалогового окна. По умолчанию –«Открыть»;

FileName –имя файла, которое появляется в поле Имя файла;

Filter – фильтр, используемый для ограничения списка видимых файлов;

FilterIndex – определяет номер файла, используемый по умолчанию;

Flags – значение, которое позволяет использовать в диалоговом окне дополнительные возможности.

Итак, диалоговое окно открытия файлов предоставляет пользователю механизм определения имени открываемого файла.


Пример кода программы на открытие файла с помощью окна диалога:

Private Sub Command2_Click()
CommonDialog1.ShowOpen ‘ применения метода для отображения окна на экране
pathfile = CommonDialog1.FileName ‘запомнить имя выбранного файла в переменной
Open pathfile For Input As #1 'открытие файла на чтение

Do While Not EOF(1) 'организация цикла на чтение файла до конца
Line Input #1, strfile 'построчное чтение записей из файла в переменную
Text1.Text = Text1.Text + strfile + Chr(13) + Chr(10) 'формирование очередной строки TextBox

Loop

Close #1

End Sub