Безымянная страница

Visual Basic предлагает три очень полезных объекта дл я предоставления доступа к файловой системе. Это списки дисковых накопителей, которые позволяют вам пролистывать доступные диски в системе; списки директорий, которые позволяют вам ориентироваться в папках на выбранном диске, и спики файлов, позволяющие вам выбрать нужный файл в папке.
В этом уроке мы будем использовать три объекта файловой системы для построения программы, называемой Browser (Просмотр), которая обнаруживает и показывает файлы, содержащие картинки.
В этой программе мы также используем графический объект. Графический объект может работать с шестью графическими форматамми: битовыми (.bmp-файлы), метафайлами Windows (.wmf-файлы), пиктограммы (.ico-файлы), курсорами (.cur- файлы), форматом JPEG (.jpg-файлы) и форматом GIF (.gif-файлы).
Наша программа использует три объекта файловой системы, графический объект и несколько строк программного кода для создания программы просмотра картинок. Эту программу можно использовать в повседневной работе для просмотра картинок на любых носителях.
Создадим приложение "Просмотр". создайте новый проект в среде Visual Basic.
Задайте свойства для формы: Caption, BackColor, Startup Position.Увеличьте размеры формы. Разместите на форме 4 элемента управления:
     1. DriveListBox (Список дисководов);
     2. DirListBox (Список директорий);
     3. FileListBox (Список файлов);
     4. Image (Рисунок).
У списка файлов установите свойство Pattern - *.bmp;*.wmf;*.ico;*.jpg;*.gif
У элемента Image1 измените свойства Stretch - True, BorderStyle - 1- Fixed Single.
Откройте программный код событийной процедуры и наберите там следующий код:
Для Списка дисководов:
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Для Списка директорий:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Для Списка файлов:
Private Sub File1_Click()
SelectedFile = File1.Path & "\" & File1.FileName
Image1.Picture = LoadPicture(SelectedFile)
End Sub

Запустите программу и посмотрите как она работает.