Создание электронных альбомов на языке Visual Basic

Установите систему программирования Visual Basic c сайта  http://www.microsoft.com или с содержащего свободно распространяемые дистрибутивы системы объектно-ориентированного программирования CD-ROM.

Подготовьте несколько коллекций рисунков.

Проект “Электронный альбом” (Приложение 1)

Все объекты, необходимые для создания приложения, внесем в таблицу и запишем информацию об используемых свойствах.

Перенесем данные элементы на форму и изменим значение свойств согласно таблице.

Листинг программы:

Private Sub Image1_Click()
CommonDialog1.ShowOpen
Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Проект “Вся коллекция фотографий” (Приложение 2)

Создать новый проект.

1. В окне Свойств объекта установить для свойства формы Name значение frm1 и для свойства Caption значение названия коллекции, например, “Россия”.
2. Активизировать свойство Picture, щелкнуть по значку “…”, в открывшемся окне выбрать нужный графический файл.
3. Разместить на форме кнопку и присвоить свойству Name значение Cmd1, а свойству Caption – значение Все.
4. Добавим в проект форму командой [Project ––> Add Form].
5. Разместить на форму элемент управления Image и активизировать его.
6. В окне свойства объектов для свойства Stretch установить True, для свойства Picture выбрать нужный графический файл.
7. Активизировать форму и для свойства Caption ввести название картинки.
8. Пункты 5–8 повторять столько раз, сколько фотографий собираетесь поместить в проекте.
9. Дважды кликнуть по кнопке Все и записать программный код.

Листинг программы:

Private Sub Cmd1_Click()
Frm1.Visible = True
Form1.Visible = True
Form2.Visible = True
Form3.Visible = True
Form4.Visible = True
Form5.Visible = True
Form6.Visible = True
Form7.Visible = True
Form8.Visible = True
Form9.Visible = True
Form10.Visible = True
Form11.Visible = True
Form12.Visible = True
Form13.Visible = True
Form14.Visible = True
Form15.Visible = True
End Sub

10. Запустить проект на выполнение и щелкнуть по кнопке Все.
Откроются все изображения, поочередно закрываем каждое окно.
11. Сохранить проект меню Fail ––> Make Project.exe и поместить его в коллекцию альбомов.

Проект “Создание электронного альбома для просмотра картинок с подписями в процессе перетаскивания”. (Приложение 3)

Создадим новый проект.

1. Активизировать форму Form1 щелчком мыши. В окне свойств объекта выбрать свойство Caption и присвоить ему значение “Перетаскивание картинок”.
2. Разместим на форме элемент управления Image1 и в центре формы элемент управления Image2.
3. Для создания массива элементов выделить элемент Image1, затем скопировать его, сделать вставку и в ответ на запрос ответить “Да”.
4. Все элементы будут иметь имя Image1 и различаться лишь индексом.
5. Всем объектам Image1 установить свойство DragMode=Automatic.
6. Выделить элемент Image2 и установить свойство Strech=False.
7. Поместим на форму метку Label1. Установим свойство Autosize=true, что позволит менять размер метки Label1 в зависимости от размера текста, помещенного в свойство Caption.
8. Для перетаскивания маленьких картинок в соответствии с картинками указателя мыши необходим метод DragDrop объекта-источника.
9. Картинки в объекты Image1(i) будем загружать во время загрузки формы. Их название будем помещать в свойство Tag этих объектов.
10. Переносимая картинка попадает в объект-приемник и остается там после отпускания кнопки мыши. Наступает событие DragOver объекта-приемника.

Листинг программы:

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X, Y
End Sub
Private Sub Form_Load()
Image1(0).Picture= LoadPicture("C:\Project\Mhk\Images\Portrait\Bruyllob_Avtoportret.jpg")*
Image1(0).Tag = "Брюллов_Автопортрет"
Image1(1).Picture= LoadPicture("C:\Project\Mhk\Images\Portrait\Bugaevskii_Blagodarnii_Portret.jpg")
Image1(1).Tag = "Бугаевский_Благодарный_Портрет художника Боровиковского"
Image1(2).Picture = LoadPicture("C:\Project\Mhk\Images\Portrait\Gontharova_Avtoportret c geltimi liliami.jpg")
Image1(2).Tag = "Гончарова_Автопортрет с желтыми линиями"**
…
Image1(21).Picture = LoadPicture("C:\Project\Mhk\Images\Portrait\Tiranov_Portret Aivasovskogo.jpg")
Image1(21).Tag = "Тыранов_Портрет Айвазовского"
End Sub
Private Sub Image2_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Image2.Picture = Source.Picture
Label1.Caption = Source.Tag
End Sub

_________________________________
* Укажите путь ваших файлов.
** Воспользуйтесь возможностью копирования и вставки.

Проект “Коллекция картин” (Приложение 4)

Все объекты, необходимые для создания приложения, внесем в таблицу и запишем информацию об используемых свойствах.

Листинг программы:

Private Sub Option1_Click(Index As Integer)
Image1.Visible = Index = 0
Image2.Visible = Index = 1
Image3.Visible = Index = 2
Image4.Visible = Index = 3
Image5.Visible = Index = 4
Image6.Visible = Index = 5
Image7.Visible = Index = 6
End Sub

1. Алиев В.К. Visual Basic. М.: СОЛОН-Р, 2002.
2. Симонович С.В., Евсеев Г.А. Занимательное программирование: Visual Basic. М.:АСТ-ПРЕСС КНИГА: Инфорком-Пресс, 2002.
3. Угринович Н.Д. Исследование информационных моделей. М.: БИНОМ. Лаборатория знаний, 2004.