Лекция: Пример задания стилей, толщины и цвета рисуемых линий
| Private Sub Command1_Click() 'точка и окружность — тонкие, черные PSet (300, 1000) Circle (1000, 1000), 500 'изменение толщины линий DrawWidth = 20 'изменение цвета линий ForeColor = RGB(230, 250, 100) 'точка и окружность — толстые и цветные PSet (1800, 1000) Circle (2800, 1000), 500 End Sub |
| Private Sub Command1_Click() 'линия — тонкая, сплошная, черная Line (300, 500)-(4700, 500) 'изменение цвета линий ForeColor = RGB(230, 250, 100) 'изменение стиля линий DrawStyle = 2 'линия-тонкая, пунктирная, желтая Line (300, 1000)-(4700, 1000) 'изменение толщины линий DrawWidth = 20 'линия-толстая, сплошная, красная Line (300,1500)-(4700,1500),vbRed End Sub |
еще рефераты
Еще работы по информатике
Реферат по информатике
Пример динамического способа формирования объектов на форме VBA Excel.
8 Января 2016
Реферат по информатике
Пример динамического способа формирования объектов на форме VB.
8 Января 2016
Реферат по информатике
Пример вычисления корня нелинейного уравнения с использованием объектной модели MS Excel.
8 Января 2016
Реферат по информатике
Пример выполнения задания.
8 Января 2016