Элемент управления Shape

Элемент управления Shape служит для изображения геометрических фигур: квадратов, прямоугольников, эллипсов, окружностей.

Элемент Shape обладает практически теми же свойствами, что и элемент Line, но имеет и ряд специфических свойств. Основные свойства Top, Left, Height, Width, Shape, BorderStyle, BorderWidth, FillStyle, FillColor.

Top, Left, Height, Width – эти свойства аналогичны свойствам других элементов управления. Они определяют положение объекта на форме и его размеры.

Shape – определяет форму объекта и может принимать следующие значения: 0 - прямоугольник; 1 – квадрат; 2 – эллипс; 3 – круг; 4 – прямоугольник с закругленными углами; 5 – квадрат с закругленными углами.

FillStille - обеспечивает автоматическое заполнение фигур, построенных с помощью графических методов. Это свойство имеет 8 значений: 0 - однотонное заполнение; 1 – пусто; 2- горизонтальные линии; 3- вертикальные линии; 4- диагонали верхние; 5- диагонали нижние; 6- сетка; 7- сетка диагональная.

BorderStyle, BorderWidth – определяют стиль контура и толщину линии соответственно. Эти свойства аналогичны соответсвующим свойствам объекта Line.

FillColor – определяет цвет заполнения объекта. Аналогичен свойству BorderColor объекта Line.

Пример 4.2. Демонстрация свойств элемента Shape.

Поместите на форму пять кнопок: Shape, FillStyle, BorderStile, BorderWidth, FillColor и один элемент управления Shape, напишите в обработчиках событий Click кнопок объектные коды:

Option Explicit Dim i As Integer, j As Integer --------------------------------------------- Private Sub Command1_Click() If i > 5 Then i = 0 Shape1.Shape = i i = i + 1 End Sub --------------------------------------------- Private Sub Command2_Click() If i > 6 Then i = 0 Shape1.BorderWidth = 1 Shape1.BorderStyle = i i = i + 1 End Sub ---------------------------------------------

Private Sub Command3_Click() If i = 0 Or i > 24 Then i = 1 Shape1.BorderWidth = i i = i + 1 End Sub --------------------------------------------- Private Sub Command4_Click() If i > 15 Then i = 0 Shape1.FillColor = QBColor(i) i = i + 1 End Sub --------------------------------------------- Private Sub Command5_Click() If i > 7 Then i = 0 Shape1.FillStyle = i i = i + 1 End Sub

Пример 4.3. Использование массива элементов управления Shape для демонстрации свойств элемента управления (рис. 4.3).

Option Explicit

Dim i As Integer

Const Pi = 3.14

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

Private Sub Form_Click()

For i = 1 To 5

Load Shape1(i)

Shape1(i).Shape = i

Shape1(i).Top = Shape1(i - 1).Top + Shape1(i - 1).Height + 40

Shape1(i).Visible = True

Load Label1(i)

Label1(i).Caption = i

Label1(i).Top = Label1(i - 1).Top + Label1(i - 1).Height + 350

Label1(i).Visible = True

Next i

For i = 1 To 7

Load Shape2(i)

Shape2(i).FillStyle = i

Shape2(i).Top = Shape2(i - 1).Top + Shape2(i - 1).Height + 40

Shape2(i).Visible = True

Load Label2(i)

Label2(i).Caption = i

Label2(i).Top = Label2(i - 1).Top + Label2(i - 1).Height + 350

Label2(i).Visible = True

Next i

End Sub

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

Private Sub Form_Load()

Me.Height = 5150

Me.Width = 3800

End Sub