Visual Basic: простейшая программка просмотра изображений (VB: PictureBox, Picture, DirListBox, FileListBox).

Продолжим изучать компоненты Visual Basic (VB).  Сегодня мы рассмотрим компонент PictureBox*:

Положив его на форму, мы увидим просто серый прямоугольник*:

Переключимся на список свойств и найдем свойство Picture*:

Нажав на кнопку с тремя точками, мы вызовем диалог выбора картинок. После того, как выберем файл, содержащее в нем изображение отобразиться компоненте*:

А теперь давайте напишем простейшую программку просмотра изображений. Для начала назначим компоненту PicturBox другое имя, вместо Pucture1 (давать объектам такие имена считается дурным тоном в программировании).  Назовем ее мы Pic. Затем поместим на форму дерево каталогов (DirListBox)*:

Этому объекту мы присвоим имя DirBox.

Затем добавим к форме FileListBox*:

Назовем его FileList. У DirBox напишем обработчик события Change, для того, что бы создать шаблон этого события, просто щелкнем по объекту. Теперь введем туда всего лишь одну строку FileList.Path = DirBox.Path. Аналогичным образом создадим обработчик клика у списка файлов, туда введем строку Pic.Picture = LoadPicture(DirBox.Path + "\" + FileList.FileName)*:

Теперь немного пояснений к программе. При изменении каталога в dirBox нам нужно обновить список файлов в FileList. Для этого мы заменяем его свойство Path и компонент сам перечитывает список файлов. Далее, когда пользователь щелкает на список файлов, нам нужно сменить в компоненте PictureBox картинку. Мы загружаем ее при помощи команды LoadPicture и помещаем в компонент.

И так, давайте запустим программу и убедимся, что она работает:

Правда, у PictureBox есть существенный недостаток: он не умеет масштабировать картинки. Так что, если изображение слишком большое, оно у нас просто не поместиться. Как решить эту проблему, будет рассказано в следующих уроках.

Скриншоты, помеченные знаком *, являются цитатами и иллюстрациями  в соответствии со ст. 1274 ГК РФ программного продукта "Microsoft Visual Studio", авторское право на который принадлежит корпорации Microsoft..