ТЕМА № 1. Элементы управления для работы с файловой системой

Задание: разработайте приложение, которое выводит на экран изображение из графических файлов.

Ход работы

1   Создайте новый проект и расположите элементы управления на новой форме, как показано на рис. 24. Обратите внимание на новые элементы управления: DriveListBox (окно дисководов), DirListBox (окно папок), FileListBox (окно файлов),

Рис. 24. Конструктор формы

2   Запустите приложение и попробуйте, как работают новые элементы.

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

Private Sub Drive1_Change()

            Dir1 = Drive1

End Sub

4   Запустите программу и попробуйте в окне дисководов выбрать другой диск (не забудьте, что если Вы выберете дисковод, в котором нет диска, то программа выдаст Вам сообщение об ошибке).

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

Private Sub Dir1_Change()

            File1.Path = Dir1

End Sub

6   Запустите приложение и убедитесь, что список файлов обновляется при выборе новой папки.

7   Так как нам необходимо загружать в PictureBox только графические файлы, то необходимо задать фильтр для окна файлов. Сделать это следует в самом начале при загрузке формы, т.е. нужно запрограммировать событие Load для формы:

Private Sub Form_Load()

            File1. Pattern= "*.bmp"

End Sub

Рис. 25. Проводник готов!

8   Если вы запустите приложение, то увидите, что теперь в списке файлов остались только те файлы, которые имеют заданные расширения.

9   Осталось только вывести изображение из графического файла в PictureBox. Для этого запрограммируем событие Click для FileListBox с помощью функции LoadPicture:

Private Sub File1_Click()

            Picture1.Picture = LoadPicture(Dir1 + "\" + File1)

End Sub

10   Запустите и отладьте приложение. Сохраните проект.

Дополнительное задание

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

Контрольные задания

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

1) com, bat;                                         5) exe, dll;

2) gif, jpg;                                                       6) wmf, emf;

3) 1st, dat;                                                       7) sys, ini;

4) doc, xls;                                                      8) wav, mid;

9) с расширением заданным пользователем;

10) txt и rtf таким образом, чтобы их содержимое выводилось в элемент управления RichTextBox.

Вопросы для самоконтроля

1   Назовите основное назначение элементов управления FileListBox, DirListBox, DriveListBox.

2   Перечислите их свойства по умолчанию.

3   С помощью какой функции можно загрузить графический файл в PictureBox?

4   Какую еще функцию может выполнять разработанное вами приложение?

5   Каковы стандартные префиксы у элементов управления FileListBox, DirListBox, DriveListBox?

Скачано с www.znanio.ru