Подведем итоги. 11. Обработчик события Click для второй кнопки («Выход») напишите самостоятельно, применив навыки, полученные при выполнении Лабораторной работы 2

End Sub

Ход работы.

End Sub

11. Обработчик события Click для второй кнопки («Выход») напишите самостоятельно, применив навыки, полученные при выполнении Лабораторной работы 2.

13. Сохраните форму и проект (выбрав File – Save FrmФото.frm и Save Фото.vbp) в папке 3.1.

14. Проверьте работоспособность проекта, запустив его на выполнение (F5).

15. Создайте exe-файл программы с помощью команды File → Make Фото.exe.

16. Выйдите из среды Visual Basic.

17. Запустите на выполнение файл Фото.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

Задание 2. Изменение приложения для просмотра картинок.

Постановка задачи.

Усовершенствовать приложение, созданное в лабораторной работе 3.1 таким образом, чтобы картинки загружались динамически, во время работы приложения.

1. Создайте папку Лабораторная_работа_№3, а в ней папку 3.2.

2. Скопируйте файлы из папки 3.1 в папку 3.2.

3. Скопируйте в папку 3.2 несколько рисунков для выполнения работы. Можно использовать рисунки из первого задания.

4. Откройте файл Фото.vbp из папки 3.2.

5. Выделяя по очереди компоненты Image1, Image 2 и Image 3, очистите свойство Picture. После очистки в свойстве должна появиться надпись None.

6. Внесите изменения в обработчик события Click по кнопке «Картинка 1»:

Private Sub Opt1_Click()

Set Image1.Picture = LoadPicture("НАЗВАНИЕ_ВАШЕГО_РИСУНКА.jpg")

Image1.Visible = True 'видна первая картинка

Image2.Visible = False 'вторая картинка невидима

Image3.Visible = False 'третья картинка невидима

7. Аналогично измените обработчики событий Click для двух других оставшихся кнопок.

8. Сохраните форму и проект (выбрав File – Save FrmФото.frm и Save Фото.vbp) в папке 3.2. На вопрос о перезаписи файла выберите ответ «Да».

9. Проверьте работоспособность проекта, запустив его на выполнение (F5).

10. Создайте exe-файл программы с помощью команды File → Make Фото.exe.

11. Выйдите из среды Visual Basic.

12. Запустите на выполнение файл Фото.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения

В работе были использованы новые

объекты:

- компонент Image (Изображение)

- компонент OptionButton (Переключатель)

App – хранит информацию о проекте

свойства:

Visible – видимость объекта

Stretch – растягивает изображение по размерам компонента Image

Picture – загружает изображение в компонент Image

Patch – значение объекта App возвращает полное имя текущего каталога

методы:

Set Image1.Picture = LoadPicture (App.Path & ”\Pictures\” & Имя_файла)

Set Image1.Picture = LoadPicture()

Задания для самостоятельного выполнения

1. Составьте конспект по теоретической части лабораторной работы. Выполненное задание покажите преподавателю.

2. Создать приложение «Галерея портретов». Данное приложение содержит серию портретов и краткие сведения о людях, изображенных на них.

3. Создать приложение «Сюжетное фото». Приложение содержит картину без лиц участников, в которую нужно помещать различные фото людей

Дата добавления: 2014-12-23