Р ис. 14 Иллюстрация к Упражнению 3.

4. Свойства элементов установить согласно данных таблицы 2.

Таблица 2.

Св-ва\ Имя	Picture1	Picture2	Picture3	Command1	Command2	Label1	Label2
AutoRedraw	True	False	False
AutoSize	False	False	False
BorderStyle	1	1	1
Caption				Загрузка картинки и рисование	Копиро-вание рисунка	Picture2.picture= Picture1.picture	Picture3.picture= Picture1.Image
ForeColor	White	White	White
Height	2900	2900	2900
Left	105	105	4400
ScaleMode	1	1	1
Top	105	3360	3360
Width	4000	4000	4000

4. Дважды щелкните левой кнопкой мыши по командной кнопке Command1 и в программном окне наберите код:

Private Sub Command1_Click()

Picture1.Picture = LoadPicture("d:\images\planets.bmp")

Picture1.DrawWidth = 1

Picture1.Line (100, 100)-(3200, 500), , B

Picture1.DrawWidth = 1

Picture1.Circle (1000, 1500), 750

Picture1.Circle (1000, 1500), 800

Picture1.CurrentX = 200

Picture1.CurrentY = 200

Picture1.Print "Picture and Image Properties"

End Sub

В первой строке программного кода выполняется операция загрузки файла картинки³. Последующие операторы формируют на рисунке дополнительные окружности и прямоугольник.

4. В программную процедуру командной кнопки Command2 запишите следующий код:

Private Sub Command2_Click()

Picture2.Picture = Picture1.Picture

Picture3.Picture = Picture1.Image

End Sub

4. Установите форму FrmPi загрузочной (Проект →Проект1→Свойства) и запустите приложение на исполнение.

5. Щелкните левой кнопкой по командной кнопке Command1. Рисунок будет загружен. К рисунку будут добавлены дополнительные графические элементы и текст.

Свойство Image, родственное свойству Picture, указывает область памяти, в которой хранятся биты изображения. В отличие свойства Picture свойство Image доступно только для чтения. Используя свойство Picture, можно копировать только изображение, загруженное с помощью метода LoadPicture. Свойство Image позволяет копировать все изображения, в том числе фигуры, нарисованные в то время, когда значение свойства AutoRedraw установлено равным True. Остальные фигуры, нарисованные при значении свойства AutoRedraw равно False, невозможно скопировать никаким методом. Кроме того, свойство Image можно использовать для копирования изображения из элемента в буфер обмена.

Результат работы приложения приведен на рис. 15.

4. Сохраните проект.