| Вопрос: Штриховка в VB | Добавлено: 10.05.06 23:47 |
Автор вопроса:  -АлександР- | Web-сайт: sham.clan.su
|
|
Привет всем! У меня проблема: нужно заштриховать фигуры разной формы. Может, кто-нибудь знает, как это можно сделать подобно принципу AutoCad (т. е. по замкнутому контуру)?
Самое лучшее - если есть способ определить, начерчена ли линия с такими-то координатами или нет и определять эти координаты сразу с формы, где рисуют, чтобы задать ForNext по контуру её границы? Кто-нибудь знает такие вещи? |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: [root] Вопросов: 45 Ответов: 1212 |
Web-сайт: Профиль | | #1 | Добавлено: 11.05.06 05:37 |
|
Option Explicit
Private Sub Form_Load() Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Const P = 3.141593 Dim i As Integer Dim dblStart, dblEnd As Double Randomize Timer dblEnd = -0.001 For i = 1 To 6 FillStyle = i + 1 dblStart = dblEnd FillColor = Int(Rnd(1) * 65535) + 16777215 ForeColor = Int(Rnd(1) * 16777215) + 65535  rawWidth = 2
dblEnd = -(2 * P / 6) * i Circle (150, 100), 70, , dblStart, dblEnd Next End Sub |
||
|
Номер ответа: 2 Автор ответа:  -АлександР-Вопросов: 55 Ответов: 1008 |
Web-сайт: Профиль | | #2 | Добавлено: 11.05.06 19:50 |
| Спасибо за ответ! Это действительно красиво! Но требуются более широкие возможности. Например, вышеописанным способом нельзя заштриховать многоугольник, построенный из line. Или такая задача - нарисовать др. в др. окружности и заштриховать пространство между ними так, чтобы пространство внутри меньшей из них имело значение FillStyle = 0 | ||
Страница: 1 |