DirectoryListBox- список каталогов

End Sub

FileListBox - список файлов.

Элементы управления для работы с файлами

РАБОТА С ФАЙЛАМИ.

Списки файлов выводят по умолчанию имена файлов в текущем каталоге. Большинство свойств списка файлов аналогичны свойствам обычного списка (размеры, расположение на форме, цвет, шрифт, вертикальная линейка прокрутки). Аналогично, списки файлов могут реагировать на все события обычных списков. Однако для выбора файлов обычно используется не одинарный, а двойной щелчок мыши DblClick.

Таблица 3.1 Основные свойства Списка файлов

Свойство	Содержание

List	Массив членов списка файлов
ListCount	Кол. членов списка файлов
ListIndex	Индекс массива
FileName	Обозначение файла
Path	Текущий путь для списка файлов
Pattern	Фильтр, шаблон. Задает вид отображаемых в списке файлов

Например, имя выбранного файла можно определить как filFile. List (ListIndex) или как свойство FileName. Вывести список файлов в массив FileNames$( I%) можно с помощью следующего кода:

……

For I%=0 to filFile. ListCount - 1

FileNames$(I%) = filFile. List(I%)

Next I%

СвойствоPatternзадает тип отображаемых файлов или шаблон "*", "?". По умолчанию фильтр установлен в значение *.*. Несколько фильтров отделяются друг от друга “; “. Изменение свойстваPattern активизирует событие PatternChange.

Свойство Pathустанавливает или возвращает текущий путь для списка файлов. Однако для изменения текущего пути в операционной системе следует использовать команду ChDir. Изменение свойстваPathактивизирует событие PathChange. Изменение свойстваFileNameактивизирует и событие PatternChange,иPathChange.

Таблица 3.2 События Списка файлов

События	Описание

Click	Щелчок мыши
DoubleClick	Двойной щелчок мыши
MouseDawn	Нажатие на клавишу мыши
MouseUp	Отпускание клавиши мыши
MouseMove	Перемещение мыши
KeyUp, KeyDawn, KeyPress	Нажатие на клавишу
Продолжение таблицы 3.2
DragDrop, DragOver	Перетаскивание объекта
GotFocus, LostFocus	Передача фокуса
PathChange	Изменение текущего пути для списка файлов
PatternChange	Изменение шаблона для отображения файлов в списке

Пример события PathChange:

Private Sub File1_PathChange ()

Label1.Caption = "Путь: " & Dir1.Path ' Показывает путь в ‘метке Label1.

Элемент управления DirListBox -отображает дерево каталогов текущего диска. Содержимое списка каталогов обновляется при двойном щелчке мыши. Подкаталоги текущего каталога нумеруются от 0 до ListCount - 1. Сам текущий каталог имеет индекс -1, родительский -2, выше -3 , ...При двойном щелчке мыши вызывается событие Changeи меняется значение свойства Path.

Таблица 3.3 Основные свойства Списка каталогов

Свойство	Содержание

List	Массив членов списка каталогов
Продолжение таблицы 3.3

ListCount	Кол. членов списка каталогов
ListIndex	Индекс массива
Path	Текущий путь для списка каталогов
Parent	Для доступа к свойствам, событиям и методам родительской формы данного элемента

Таблица 3.4 События Списка каталогов

События	Описание

Click	Щелчок на клавише мыши
MouseUp, MouseUp, MouseMove	Нажатие, отпускание, перемещение мыши
KeyUp, KeyDawn, KeyPress	Нажатие на клавишу
DragDrop, DragOver	Перетаскивание объекта
GotFocus, LostFocus	Передача фокуса
Change	Изменение в списке каталогов

Для того чтобы изменение в списке каталогов отразилось списке файлов, можно использовать процедуру:

Private Sub dirBox_ Change ()

filFile1. Path = dirBox. Path ' Устанавливает путь к файлу