3. Стандартные объекты для работы с файлами.

Для работы с файлами могут использоваться элементы управления DriveListBox – список устройств, DirectoryListBox – список каталогов и FileListBox – список файлов.

DriveListBox предназначен для отображения и работы с дисками и обеспечивает возможность их выбора. Выбранный диск хранится в свойстве Drive.

DirectoryListBox предназначен для выбора и смены каталогов. Для этого элемента главную роль играет событие Chahge. Оно вызывается в результате двойного щелчка мышью по имени выбранного каталога в окне просмотра.

Главным его свойством, в котором хранится путь и имя выбранного каталога является Path. (C:\ WINDOWS \ WORD).

После отображения этих элементов на форме они ещё не работают. Поэтому прежде, чем их использовать необходимо установить между ними взаимодействие (синхронизировать). Это достигается путем размещения в процедуре обработки события Change в DriveListBox следующего оператора.

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Для того, чтобы выбор каталога осуществлялся нажатием клавиши Enter необходимо в процедуру обработки события KeyPress поместить операторы

Private Sub Dir1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dir1.Path = Dir1.List(Dir1.ListIndex)

End If

End Sub

FileListBox – отображает файлы текущего каталога, откуда их можно выбрать. Основные события;

Click - вызывается при выборе пользователем имени файла в списке;

PathChange - происходит после изменения пути;

PatternChange - после изменения маски выбора файла.

Свойства

FileName - содержит имя выбранного файла

Pattern - позволяет определить тип тех файлов, которые должны отображаться в списке. File1. Pattern = “ * . ICO; * . txt

Список также должен синхронизироваться с выбранными устройствами и каталогами. Для этого достаточно разместить в процедуре обработки события Change для DirListBox оператор

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

После синхронизации все три элемента работают вместе.

Для отображения полного имени файла включая путь, нужно просто сложить Соответствующие строки, содержащие значения имени диска, Каталога и пути файла .

Пример

txtPathFaile.Text = File1.Path & “ \ “ & File1.FileName

Чтобы избежать отображения в пути излишнего количества символов “ \” в случае выбора файла корневого каталога необходимо записать код

Private Sub File1_Click()

If Right(File1.Path, 1) = "\" Then

Label1.Caption = File1.Path & File1.FileName

NameFile = Label1.Caption

Else

Label1.Caption = File1.Path & "\" & File1.FileName

NameFile = Label1.Caption

End If

End Sub

Для облегчения работы с файлами можно использовать общий диалог (Command Dialog), поставляемый с системой VB. Если он не загружается при запуске VB, его можно вызвать из окна компонентов меню проект опция компоненты.

Общий диалог представляет нам несколько панелей диалога. которые можно применять для получения от пользователя различной информации. Вы можете использовать его для ввода имени файла, который нужно открыть, или ввести имя под которым файл должен быть сохранен. с помощью общего диалога вы можете представить пользователю возможность выбора шрифта, цвета. Имеется также диалог для управления принтером, управлять различными аспектами режима печати.Эти панели диалогов выглядят так же, как панели диалога Windows/

Для того, чтобы общий диалог сделать доступным, вы должны разместить экземпляр объекта управления на экранной форме. Этот объект не будет видим, когда программа выполняется. Панели диалога отображаются только тогда, когда вы их вызываете. При размещении панели общего диалога на панели вы должны дать ему уникальное имя.

Для открытия общего диалога используется метод ShowOpen