Графические объекты (рисунки) можно разметить: на форме (Form) – краткое имя frm, в графическом окне (PictureBox) – краткое имя pic. - презентация

1

2 Графические объекты (рисунки) можно разметить: на форме (Form) – краткое имя frm, в графическом окне (PictureBox) – краткое имя pic.

3 Графические методы Задание системы координат: Object.Scale (X1, Y1) – (x2, Y2) frm pic Пример: задание системы координат с началом координат в левом верхнем углу и с размерами 100 х 100 точек (пикселей) pic.Scale (0, 0) – (100, 100)

4 Установка точки Object.Pset (X1, Y1) [, color] Пример: pic.Pset (150, 140), vbGreen аргумент color можно задать: 1. с помощью констант: vbBlack, vbGreen, vbBlue, vbCyan, vbRed, vbMagenta, vbYellow, vbWhite. 2. с помощью функции QBColor (номер), где вместо номера – число от 1 до 16.

5 Рисование линии, прямоугольника Object.Line (X1, Y1)-(X2, Y2) [,color][,B][F] B – задает рисование прямоугольника, BF – задает рисование закрашенного прямоугольника. Примеры: Pic.Line (30, 40)-(100, 60), vbRed – рисование линии красного цвета. Pic.Line (30, 50)-(90, 45), vbRed, BF – рисование закрашенного красного прямоугольника.

6 Рисование окружности, овала, дуги Object.Circle (X1, Y1), radius [,color, start, end, aspect] radius – радиус окружности, start, end – начальный и конечный углы дуги в радианах, aspect – коэффициент сжатия (0.7 для окружности). Примеры: Pic.Circle (30, 40), 70, vbRed – рисование окружности радиусом 70 точек красного цвета. Pic.Circle(30, 50), 90, vbRed, 0, 3.14, 0.5– рисование дуги овала.

7 Создание области для рисования Лучше всего рисовать на графическом поле PictureBox, задав для фона белый цвет. Создать кнопку и для кнопки написать программу. В свойстве Name для графического поля ввести pic, для кнопки cmd1.

8 Составить программу для рисования Sum cmd1_Click() pic. Scale (0,0)- (100,100) pic.Line (20,40)- (50,10), vbBlue pic.Line (50,10)- (80,40), vbBlue pic.Line (20,40)- (80,80), vbGreen, BF pic.Circle (50,60), 10, vbYellow End Sub