Контрольные вопросы

1. Что означают свойства Max,Minэлементов управленияHScrollBarиVScrollBar? Назовите их значения по умолчанию.

2. Что означает свойство Value?

3. Как вывести значение свойства Valueв текстовое окно?

4. Что означают свойства SmallChange,LargeChange?

5. Каковы основные события, связанные с линейками прокрутки?

6. Чем отличается событие Changeот событияScroll?

2.4. Задание 4. Элементы управления Shape, Frame, OptionButton, CheckBox

Разработать интерфейс пользователя, представленный на рис.10, и программные коды, позволяющие создавать на форме различные геометрические фигуры, закрашивать их различным цветом и устанавливать тип штриховки.

Рис. 10. Интерфейс пользователя

Таблица свойств формы и элементов управления.

Таблица 5.

Объект	Свойство	Значение
1	2	3
CheckBox	Name Caption	Check1 Установить тип штриховки фигуры
CommandButton	Name Caption	Command1 Выход
Form	Name Caption	Form1 Геометрические фигуры
Frame	Name Caption	Frame1 Цвет
OptionButton	Name Caption Value	Option1 Прямоугольник True
OptionButton	Name Caption	Option2 Квадрат
OptionButton	Name Caption	Option3 Овал
OptionButton	Name Caption	Option4 Окружность
OptionButton	Name Caption Value	Option5 Красный True

1	2	3
OptionButton	Name Caption	Option6 Желтый
OptionButton	Name Caption	Option7 Зеленый
Shape	Name BackStyle BorderColor BorderStyle	Shape1 1 Opaque Черный 1Solid

Программные коды

OptionExplicit'требуется явное объявление переменных

Private Sub Check1_Click()

Dim n As Byte 'переменная типа Byte

If Check1.Value = 1 Then 'если флажок помечен "галочкой", то

n = InputBox("Введите тип штриховки:2-горизонтальная,3- вертикальная,4-по диагонали слева направо,5-по диагонали справа налево,6 горизонтально-вертикальная,7-диагональная,0-сплошное заполнение,1- прозрачная основа") 'вводим значение типа штриховки

Shape1.FillStyle = n 'устанавливаем тип штриховки

End If

If Check1.Value = 0 Then 'если флажок не помечен "галочкой", то

Shape1.BackStyle = 1 'устанавливаем стиль фона непрозрачным

Shape1.BackColor = QBColor(7) 'устанавливаем цвет фона белым

Shape1.FillStyle = 1 'устанавливаем тип штриховки: прозрачная основа

End If

End Sub

Private Sub Command1_Click()

End 'оператор End закрывает приложение

End Sub

PrivateSubOption1_Click()

Shape1.Shape= 0 'тип геометрической фигуры: прямоугольник

Shape1.BorderColor = vbBlack 'цвет линии, охватывающей край фигуры: черный

Shape1.BorderStyle = 1 'тип линии, охватывающей край фигуры

Shape1.BorderWidth = 2 'толщина линии, охватывающей край фигуры (в пикселах)

Shape1.FillColor = vbBlack 'цвет внутренних линий: черный

Shape1.FillStyle = 7 'узор (штриховка) внутренних линий

End Sub

Private Sub Option2_Click()

Shape1.Shape = 1 'тип фигуры: квадрат

End Sub

Private Sub Option3_Click()

Shape1.Shape = 2 'тип фигуры: овал

End Sub

Private Sub Option4_Click()

Shape1.Shape = 3 'тип фигуры: окружность

End Sub

Private Sub Option5_Click()

Shape1.BackColor = vbRed 'цвет фигуры: красный

End Sub

Private Sub Option6_Click()

Shape1.BackColor = QBColor(14) 'цвет фигуры: желтый

End Sub

Private Sub Option7_Click()

Shape1.BackColor = vbGreen 'цвет фигуры: зеленый

End Sub

Пояснения к программным кодам.Встроенная функцияQBColor(), наряду с встроенными константами, позволяет изменять цвет элементов управления. Для этого в качестве параметра функции в скобках надо задать значение цвета, представленное цифрами от 0 до 15, например,QBColor(1)синий,QBColor(2)зеленый,QBColor(3)голубой.