1.7.7. Элемент управления Shape (Фигура)

Э

лемент управленияShapeиспользуется для создания различных геометрических фигур.

Свойства элемента управления Shape

Shapeопределяет, какая геометрическая фигура задается. Значения свойства: 0Rectangle(Прямоугольник), 1Square(Квадрат), 2Oval(Овал), 3Circle(Окружность), 4Rounded Rectangle(Прямоугольник со скругленными углами), 5Rounded Square(Квадрат со скругленными углами).

Положение и размер фигуры определяются известными свойствами Left,Top,Width,Heigh.

Внешний вид линий, описывающих край фигуры, определяется свойствами: BorderColorцвет линии,BorderStyleтип линии,BorderWidthтолщина линии в пикселах (целое число в диапазоне 1-32767).

Внутренний цвет и узор линий определяются соответственно свойствами FillColor иFillStyle. Значения свойства FillStyle: 0Solid(сплошное заполнение), 1Transparent(прозрачная основа), 2Horizontal Line(горизонтальная штриховка), 3Vertical Line(вертикальная штриховка), 4Upward Diagonal(штриховка по диагонали слева направо), 5Downward Diagonal(штриховка по диагонали справа налево), 6 –Cross(горизонтально-вертикальная штриховка), 7Diagonal Cross (диагональная штриховка).

BackColor цвет фигуры. Но это свойство можно задать только при условии, что значение свойстваBackStyle=1. СвойствоBackStyleимеет два значения: 0Transparent(прозрачный), 1Opaque (непрозрачный).

Пример:

Shape1.Shape=1 ‘элемент управленияShapeпримет форму квадрата

Shape1.BackStyle=1‘ установим равным 1 значение этого свойства, чтобы задать цвет фигуры

Shape1.BackColor=VbRed‘квадрат закрасится красным цветом

1.7.8. Элемент управления Line (Линия)

Э

лемент управленияLineиспользуется для создания прямой линии на форме.

Свойства элемента управления Line

BorderWidthтолщина линии,BorderColorцвет линии,BorderStyleтип линии.

X1, Y1координаты начала линии,X2, Y2координаты конца линии. И те, и другие координаты задаются в твипах относительно левого верхнего угла формы.

1.7.9. Элемент управления Timer (Таймер)

Э

лемент управленияTimer проверяет показания системных часов и действует в соответствии с результатом.

Он позволяет запускать или завершать различные процессы приложения в определенные моменты времени. Timerэлемент управления, который никогда не отображается на экране в режимевыполнения.Поэтому для него не надо выделять место на форме, его можно расположить даже поверх других элементов управления.

Свойстваэлемента управления Timer

Name  по умолчанию имя принимает значения Timer1, Timer2. Можно задать имя с префиксом tmr.

Enabled  логическое свойство. Если значением свойства является значениеTrue, то таймер доступен, еслиFalse, то таймер недоступен.

Interval  значение свойства задается в миллисекундах (1сек=1000млсек). Диапазон изменения от 0 до 65535млсек. ЕслиInterval=0, то таймер отключен.

Свойство Enabledявляется своего рода кнопкой, запускающей и останавливающей таймер. Если его значение равноTrue, то каждый раз по истечении заданного в свойствеIntervalвремени, будет вызываться процедура обработки событияTimer. Т.е. событиеTimerнаступает по истечении интервала времени, заданного свойством Interval. Чтобы оно не призошло после истечения заданного срока, свойствуEnabledнадо задать значениеFalse. Следует отметить, что таймеры не обладают никакими методами.

Пример.

При проектировании приложения (режим design) расположим на форме элементы управления с именамиShape1,Timer1,Command1 иCommand2. Зададим значения свойствTimer1. Interval=1000, Timer1.Enabled= False. Тогда при запуске программы, которая приведена ниже, после нажатия кнопкиCommand1, через секунду, на форме появляется овал, закрашенный красным цветом.

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Timer1_Timer()

Shape1.Shape = 2

Shape1.BackStyle = 1

Shape1.BackColor = vbRed

End Sub