	Главная \| Случайная страница \| Контакты \| Мы поможем в написании вашей работы!

Пример задания стилей, толщины и цвета рисуемых линий

⇐ Предыдущая 31 32 33 34 353637 38 39 40 Следующая ⇒

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

⇐ Предыдущая 31 32 33 34 353637 38 39 40 Следующая ⇒

Дата публикования: 2014-12-28; Прочитано: 143 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!

studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.008 с)...