3.6.1 Добавление растровых изображений в форму
Добавить растровое изображение можно непосредственно в форму или в элементы управления Image. Для добавления изображения в форму нужно выполнить следующие действия:
1) создать новый проект и присвоить ему имя. Для заголовка формы задать название, например «Растровая графика» (свойство Caption);
2) добавить в форму элемент управления Image;
3) установить размеры и положение элементов управления Image, как показано на рисунке 55;
Рисунок 55 – Проект формы «Растровая графика»
4) выделить форму. Обратиться к свойству Picture в окне “Properties” (Свойства). Открыть диалоговое окно “LoadPicture” (Загрузка рисунка), показанное на рисунке 56
Рисунок 56 – Диалоговое окно «Загрузка рисунка»
5) в диалоговом окне “LoadPicture” перейти в каталог Windows (или в другой каталог) и отыскать файл с расширением *.bmp, а затем щелкнуть мышью по кнопке <Открыть>. На месте вставки рисунка в форме появится изображение;
6) для свойства AutoSize объекта Image1 установить значение True. Размеры окна Image1 будут приведены к размерам рисунка;
7) сохранить проект и запустить программу. Внешний вид формы после запуска программы будет выглядеть подобно изображению на рисунке 57.
Рисунок 57 – Внешний вид формы
3.6.2 Вставка изображений в форму
Ранее рассматривался пример добавления растровых графических изображений в форму во время проектирования. Функция LoadPicture позволяет делать добавление изображений в форму во время выполнения программы.
Синтаксис:
NamePicture = LoadPicture (FilePath)
где
NamePicture – имя элемента управления типа Image;
LoadPicture – имя функции;
FilePath – строковая переменная или константа, которая
содержит путь к файлу с графическим изображением.
Пример 1.
Постановка задачи. Создать приложение, в котором, щелкая кнопкой мыши на элементах управления OptionButton (Переключатели), можно менять графические изображения в окне Image (рисунок 58).
Технология выполнения задания:
1 Конструирование проекта.
Процесс программирования приложения Рисунок предусмотрен тремя этапами, как показано в таблице 46.
Таблица 46 - Этапы программирования
Этапы программирования |
Число объектов |
1 Создание пользовательского интерфейса |
5 объектов |
2 Установка свойств объектов |
5 объектов |
3 Составление программного кода |
4 объекта |
При помощи окна Properties установить значения свойств Name и Caption полей элементов управления следующим образом, как показано в таблице 47.
Таблица 47 – Свойства элементов управления
Элемент управления |
Свойство |
Значение |
Примечание |
Переключатель |
Name Caption |
OptionButton1 |
Рисунок 1 |
Переключатель |
Name Caption |
OptionButton2 |
Рисунок 2 |
Переключатель |
Name Caption |
OptionButton3 |
Рисунок 3 |
Командная кнопка |
Name Caption |
CommandButton1 |
End |
Рисунок |
Name |
Image1 |
Рисунок |
2 В модуле формы набрать следующий код, изображенный на рисунке 59.
Лабораторная работа № 13
Разработка пользовательского приложения с помощью объекта: Рисунок
Цель: приобретение навыков разработки пользовательского приложение с помощью объекта формы VBA – рисунок. Лабораторная работа № 13 выполняется согласно вышеописанной технологии. Рисунок выбирается студентом самостоятельно (2 часа).
Рисунок 58 – Окно приложения Рисунок
Рисунок 59 – Программный код