Лабораторная работа: Creating graphic editor

If GradationColor(1).Value = True Then sc2 = &HFFFFFF

If GradationColor(2).Value = True Then sc2 = &H0

f1 = TakeRGB (sc2, 0): f2 = TakeRGB (sc2, 1): f3 = TakeRGB (sc2, 2)

v1 = TakeRGB (sc1, 0): v2 = TakeRGB (sc1, 1): v3 = TakeRGB (sc1, 2)

ForStart = 0: forstep = 10

Endpro = IIf (GradationDirection(0).Value = True, Picture1. ScaleWidth, Picture1. ScaleHeight)

For i = ForStart To Endpro Step forstep

D1 = v1 + (f1 – v1) / Endpro * i

D2 = v2 + (f2 – v2) / Endpro * i

D3 = v3 + (f3 – v3) / Endpro * i

If GradationDirection(0).Value = True Then Picture1. Line (i, 0) – (i, Picture1. ScaleHeight), RGB (D1, D2, D3)

If GradationDirection(1).Value = True Then Picture1. Line (0, i) – (Picture1. ScaleWidth, i), RGB (D1, D2, D3)

10 Next i

GradationChanged = False

End Sub

Private Sub Toolbar1_ButtonClick (ByVal Button As ComctlLib. Button)

For i = 1 To 8

If Toolbar1. Buttons(i).Value = tbrPressed Then CurrentChoice = i

Next i

Shape1. Visible = False

Line1. Visible = False

For i = 0 To 4

Optionframe(i).Visible = False

Next i

Select Case CurrentChoice

Case 1 To 2

Optionframe(0).Visible = True

Case 3

Optionframe(2).Visible = True