Графические объекты (рисунки) можно разметить: на форме (Form) – краткое имя frm, в графическом окне (PictureBox) – краткое имя pic.
Графические методы Задание системы координат: Object.Scale (X1, Y1) – (x2, Y2) frm pic Пример: задание системы координат с началом координат в левом верхнем углу и с размерами 100 х 100 точек (пикселей) pic.Scale (0, 0) – (100, 100)
Установка точки Object.Pset (X1, Y1) [, color] Пример: pic.Pset (150, 140), vbGreen аргумент color можно задать: 1. с помощью констант: vbBlack, vbGreen, vbBlue, vbCyan, vbRed, vbMagenta, vbYellow, vbWhite. 2. с помощью функции QBColor (номер), где вместо номера – число от 1 до 16.
Рисование линии, прямоугольника 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 – рисование закрашенного красного прямоугольника.
Рисование окружности, овала, дуги 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– рисование дуги овала.
Создание области для рисования Лучше всего рисовать на графическом поле PictureBox, задав для фона белый цвет. Создать кнопку и для кнопки написать программу. В свойстве Name для графического поля ввести pic, для кнопки cmd1.
Составить программу для рисования 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