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

Диалоговое окно	Назначение	Метод
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

Дата добавления: 2014-11-16