End Sub. 6. Поместить на форму кнопку txtCls и создать событийную процедуру очистки графического поля:

6. Поместить на форму кнопку txtCls и создать событийную
процедуру очистки графического поля:

Ответы и указания к решению

Private Sub txtCls_Click() picPaint.Cls End Sub

7. Запустить проект. Ввести в поля числовые значения (значения углов измеряются в радианах и должны находиться в интервале от -2л до 2л).

Щелкнуть по кнопкам, в графиче­ском поле будут нарисованы графи­ческие примитивы.

4.23. Проект «Выбор цвета» хранится в папке prjZ4-23.

1. Поместить на форму графическое окно picColor для про­смотра выбранного цвета и текстовое поле txtColor для вывода его названия.

2. Для вывода списка цветов удобно использовать управляю­щий элемент Окно списка (ListBox), который представля­ет собой текстовое поле, в котором отображается упорядо­ченный список значений. Поместить на форму список lstl и внести в него перечень цветовых констант с использова­нием свойства List.

3. Создать событийную процедуру (событие — двойной щел­чок), реализующую задание цвета с помощью цветовых констант путем выбора цвета из списка. Его отображе­ние в графическом и текстовом полях осуществить с по­мощью оператора Select Case:

Private Sub lstl_DblClick() Select Case lstl.Text Case Is = "vbBlack" picColor.BackColor = vbBlack txtColor = "черный" Case Is = "vbBlue" picColor.BackColor = vbBlue txtColor = "синий" Case Is = "vbGreen" picColor.BackColor = vbGreen txtColor = "зеленый" Case Is = "vbCyan" picColor.BackColor = vbCyan txtColor = "голубой" Case Is = "vbRed" picColor.BackColor = vbRed txtColor = "красный"

Ответы и указания к решению

Case Is = "vbMagenta" picColor.BackColor = vbMagenta txtColor = "пурпурный" Case Is = "vbYellow" picColor.BackColor = vbYellow txtColor = "желтый" Case Is = "vbWhite" picColor.BackColor = vbWhite txtColor = "белый" End Select End Siob

4. Поместить на форму текстовое поле txtQBC для ввода чис­
лового кода цвета. Создать событийную процедуру (собы­
тие — изменение содержания поля, например ввод нового
числового кода), реализующую выбор цвета с использова­
нием функции QBColor:

Private Sub txtQBC_Change()

picColor.BackColor = QBColor(Val(txtQBC.Text))

txtColor = ""