2015-05-14
362
Picture2.DrawWidth = 10
Picture2.PSet (100, 200)
Picture2.PSet (0, 0), vbRed
Picture3.DrawWidth = 10
Picture3.PSet (100, 200)
Picture3.PSet (0, 0), vbRed
Picture4.DrawWidth = 10
Picture4.PSet (100, 200)
Picture4.PSet (0, 0), vbRed
3) очистка PictureBox
Picture1.BackColor = -2147483633
Picture2.BackColor = &H8000000F
Picture3.DrawWidth = 10
Picture3.PSet (100, 200), -2147483633
Picture4.BackColor = -2147483633
ЗАВДАННЯ 17.2. Постановка задачи. ПОСТРОИТЬ ГРАФИЧЕСКИЕ ПРИМИТИВЫ — ПРЯМУЮ, ПРЯМОУГОЛЬНИК, КРУГ, ОВАЛ, СЕКТОР, КРУГ, УСТАНОВИВ ДЛЯ НИХ РАЗЛИЧНЫЕ ХАРАКТЕРИСТИКИ (ЦВЕТ, ТОЛЩИНУ ЛИНИИ, ФОН, СПОСОБ ЗАЛИВКИ).
Порядок действий
: Добавьте в проект новую форму. Разместите на форме 4 объекта PictureBox, 6 объектов CommandButton, при нажатии которых будет выполняться построение графических объектов, их местоположение, очистка PictureBox, корректный выход.
Рисунок 17.2 – Форма Задания 17.2
: Очистка PictureBox (кнопка «Очистка экрана»)
Private Sub Command6_Click()
Picture1.Cls
‘Picture1.BackColor = -2147483633
End Sub
: Корректный выход (кнопка «Выход»).
Private Sub Command3_Click()
Form3.Show
