4.1.2. Элементы управления Line и Shape Элемент управления Line

Элемент управления Line позволяет рисовать линии различной толщины и стиля (Рис. 4.2).

Этот элемент обладает 15 свойствами. Основными являются X1, Y1, X2, Y2, BorderStyle , BorderWidth и BorderColor.

X1, Y1, X2, Y2 – координаты концов линии, X1, Y1 – координаты левого конца линии; X2, Y2 - координаты правого конца линии.

BorderStyle - определяет стиль линии:

0 - невидимая; 1 – сплошная; 2 – пунктирная; 3 – пунктирная с коротким штрихом; 4 – штрих пунктирная; 5 – штрих штрих пунктирная; 6- InsideSolid. Данное свойство работает только при значении свойства BorderWidth=1

BorderWidth - определяет толщину линии и может принимать любые значения кроме нуля.

BorderColor - определяет цвет объекта. Существует четыре способа задания цвета:

• непосредственное задание 16-ричной константой. Например: &H00000000& - черный цвет; &H000080FF& - красный цвет. Такой способ задания цвета в программе достаточно неудобен;

• использование RGB – функции: RGB (Red, Green, Blue).

RGB – функция формируется из трех цветов: красного, зеленого и синего. Каждый цвет задается числовой константой от 0 до 255. Эта функция позволяет формировать различные цвета и оттенки. Всего можно сформировать 255*255*255 различных оттенков. Например:

R=100: G=150: B=75

Line.BorderColor=RGB(R,G,B) ‘темно зеленый цвет

- использование констант Visual Basic. Имеется 8 констант: vbBlack - черный; vbBlue - синий; vbCyan - голубой; vbGreen - зеленый; vbMagenta - сиреневый; vbRed - красный; vbWhite - белый; vbYellow – желтый;

• использование функции QBColor ( C), где С - цвета от 0 до 15:

Черный	- 0	Темно – серый	- 8
Темно-синий	- 1	Синий	- 9
Темно-зеленый	- 2	Зеленый	- 10

Темно-голубой	- 3	Голубой	- 11
Темно-красный	- 4	Красный	- 12
Темно-сиреневый	- 5	Сиреневый	- 13
Коричневый	- 6	Желтый	- 14
Светло-серый	- 7	Белый	- 15

Объект Line устанавливается на форму во время разработки программы, как и другие объекты управления. Положение объекта Line на форме можно изменить программным путем. Для управления объектом Line необходимо поместить объектный код в обработчик события Resize.

Пример 4.1. Свойства прямой линии (рис.4.2)

Option Explicit

Dim x1 As Single, x2 As Single, y1 As Single, y2 As Single

Dim i As Integer

------------------------------------------------------------------------------

Private Sub Form_Resize()

' горизонтальная черта по диагонали.

Line3.x1 = 0

Line3.y2 = 0

Line3.x2 = Form1.ScaleWidth

Line3.y1 = Form1.ScaleHeight

Line3.BorderColor = vbRed

End Sub

------------------------------------------------------------------------------

Private Sub Form_Click()

For i = 0 To 6

Line1(i).BorderStyle = i

Line1(i).BorderColor = QBColor(i + 8)

Line2(i).BorderColor = QBColor(i + 1)

Next i

End Sub

Объекты Line1 и Line2 представляют собой массивы элементов управления.