Элементы управления DriveListBox, DirListBox и FileListBox

Date: 2015-10-07; view: 483.

Работа с устройствами, папками, файлами

Аннотация:Рассматривается работа с объектами файловой системы. Особый интерес представляет классический вопрос записи данных в файл, чтение данных из файла, поддерживаемый практической работой 19.

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

Рис. 3.1.DriveListBox, DirListBox и FileListBox

Имеется возможность после старта проекта выбрать требуемый объект, например файл каталога некоторого дискового устройства для дальнейшей работы с ним. Рассмотрим кратко некоторые параметры этих элементов управления:

· DriveListBox ( вверху слева). Имена дисковых устройств (свойство Name) в соответствии с соглашением по коду начинаются с drv; важным свойством является Drive, оно доступно только во время выполнения проекта и определяет выбранное пользователем дисковое устройство. Из имеющихся событий представляет интерес Change, происходящее при выборе пользователем нового дискового устройства,

· DirListBox ( в середине слева). При выборе нового дискового устройства в поле элемента управления DirListBox выводится список соответствующих каталогов. Имена каталогов в соответствии с соглашением по коду начинаются с dir. Свойство Path, доступное во время выполнения, задает/возвращает путь к каталогу, выбранному пользователем из списка. Списки обновляются в процедуре события Change,

· FileListBox ( внизу слева). В списках файлов перечисляются файлы текущего каталога, откуда их можно выбрать. Имеется около 50 свойств. Свойство Path доступно только во время выполнения, его можно задать и возвратить. Свойства Hidden,Normal, ReadOnly, System, Archive дают возможность вывести в список только требуемые файлы. Имеется около 20 событий. Часто в процедуре CommandК_Click () выполняются действия, связанные со значениями Path и FileName списка файлов.

Чтобы обеспечить совместное функционирование элементов управления DriveListBox, DirListBox и FileListBox после размещения их на форме, нужно создать синхронизирующие их работу процедуры:

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Для вывода содержимого каталога после его маркировки и нажатия клавиши Ввод нужно ввести код:

Private Sub Dir1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then Dir1.Path = Dir1.List(Dir1.ListIndex)

End Sub

Здесь свойство ListIndex характеризует маркированную пользователем строку, см. ниже.

В распоряжение пользователя предоставлен ряд функций, некоторые из них приведены ниже.

· ChDrive имя дискового устройства - перейти на другое дисковое устройство,

· ChDir путь - перейти в другой каталог,

· MkDir путь - создать каталог,

· RmDir путь - удалить каталог,

· FileCopy источник, цель - копировать файл.

· SetAttr - установить атрибуты файла/каталога; допускается комбинация атрибутов.

Информация об атрибутах дана в