End Sub. : измените цвет оси Х на синий

Дополните задание 17.2:

: измените цвет оси Х на синий.

: дополните код и прокомментируйте его:

Picture1.Line (20, 200)-(500, 800), vbMagenta, B ‘

: установить пропорции сторон прямоугольника один к трем в I-й четверти, четыре к одному во II-й четверти;

: начертить квадрат в третей четверти, провести заливку квадрата желтым цветом: для закраски добавьте перед командой рисования квадрата команду определения цвета заливки FillColor и команду определения стиля заливки FillStyle (0 соответствует сплошной заливке):

FillColor = vbYellow

FillStyle = 0

Рис. 17.3

: Рисование объектов (кнопка «Рисование круга, сектора, окружности, эллипса»).

Private Sub Command4_Click()

'Светофор

Picture1.DrawWidth = 1

Picture1.FillStyle = 0

Picture1.FillColor = vbRed

Picture1.Circle (0, 1700), 100, vbWhite

Picture1.FillColor = vbYellow

Picture1.Circle (0, 1450), 100, vbWhite

Picture1.FillColor = vbGreen

Picture1.Circle (0, 1200), 100, vbWhite

'Семицветик

Picture1.Circle (1250, 1500), 150, vbBlack,,, 2

Picture1.Circle (1250, 1000), 150, vbBlack,,, 2

Picture1.Circle (1500, 1250), 150, vbBlack,,, 0.5

Picture1.Circle (1000, 1250), 150, vbBlack,,, 0.5