9. Элементы управления файлами

Н

Drive1

Dir1

File1

а панели элементов управления имеются три элемента, позволяющие получать доступ к файловой системе компьютера: DriveListBox (Диски), DirListBox (Каталоги), FileListBox (Файлы). (рис. 9.1). Они являются базовыми блоками, применяемыми при построении диалоговых окон, отображающих файловую систему компьютера. Чтобы найти любую папку или файл на любом жестком диске, в том числе и сетевом, можно перемещаться по файловой системе, используя эти элементы. Элементы не связаны друг с другом и могут применяться отдельно, но практикуется это редко.

Рис. 9.1. Три элемента управления файловой системой

DriveListBox. Отображает имена дисков как встроенных, так и подсоединенных к компьютеру. Основное свойство элемента Drive – служит для установки диска, который выбирается при загрузке элемента управления, или возврата выбранного пользователем диска.

DirListBox. Отображает папки текущего диска. Основное свойство элемента - Path – имя папки, вложенные папки (подпапки) которой отображаются элементом.

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

Три элемента управления файловой системой не связаны друг с другом. Чтобы соединить эти элементы, необходимо назначить соответствующие значения их основным свойствам. Ниже приведен минимальный программный код, который необходимо включить в событие Change элемента DriveListBox.

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

При каждом изменении текущей выборки элемента DirListBox необходимо установить свойство Path элемента FileListBox равным новому пути элемента DirListBox.

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Этого достаточно для соединения трех элементов управления файловой системой и создания формы, позволяющей просматривать все диски компьютера. Следует учесть, что хотя элемент DriveListBox отображает все диски, а элемент DirListBox - все подпапки, в большинстве случаев следует ограничивать число файлов, отображаемых элементом FileListBox . Для этого используют свойство Pattern (Шаблон) элемента, позволяющее указать в специальной строке шаблон для имен файлов, скажем «*.TXT».

В особом поле со списком (элемент ComboBox) принято отображать список доступных для отображения типов файлов. Пользователь может выбрать нужный ему тип. На рис. 9.1 показано поле со списком, заполненное при загрузке формы. Выбор, сделанный в нем, можно изменять. При этом свойству Pattern элемента управления файлами присваивается новый шаблон файлов.

Изменения в элементе ComboBox передаются приложению с помощью двух событий: Change (пользователь вводит новый шаблон имен файлов) и Click (выбирает шаблон щелчком на пункте списка). Оба события используют следующую строку программного кода:

File1.Pattern = Combo1.Text

Чтобы получить доступ к содержимому трех элементов управления файловой системой, воспользуйтесь свойством List, подобным свойству List элемента ListBox. Чтобы получить доступ к содержимому этих элементов, используйте соответствующее значение Index свойства List. Последнее равно 0 для первого пункта и ListCount-1 для последнего.

Пример. Проект FileDemo показывает получение доступа к содержимому элементов управления файлами.

Private Sub Command1_Click()

' Scan the contents of the DriveListBox control

List1.Clear

List1.AddItem "Вывод всех дисков"

For i = 0 To Drive1.ListCount - 1

List1.AddItem Drive1.List(i)

Next

End Sub

Private Sub Command2_Click()

' Scan the contents of the DirListBox control

List1.Clear

List1.AddItem "Вывод всех подпапок"

For i = 0 To Dir1.ListCount - 1

List1.AddItem Dir1.List(i)

Next

End Sub

Private Sub Command3_Click()

List1.Clear

List1.AddItem "Вывод корневых папок"

pDepth = -1

While Dir1.List(pDepth) <> ""

List1.AddItem Dir1.List(pDepth)

pDepth = pDepth - 1

Wend

List1.AddItem "The current folder is nested " & -pDepth + 1 & " folders deep"

End Sub

Private Sub Command4_Click()

' Scan the contents of the FileListBox control

List1.Clear

List1.AddItem "Вывод всех файлов"

For i = 0 To File1.ListCount - 1

List1.AddItem File1.List(i)

Next

End Sub