Здравствуйте!
Во время моей скромной программистской деятельности возникла
острая нужда нарисовать залитые полигоны на форме.
Все бы ничего, но мне надо это сделать именно методами формы,
без API!
Как это сделать?
Подозреваю, что надо использовать Line... или нет?
Буду искренне рад ответу - надо очень..

Код

Option Explicit Private Sub Command1_Click()    Me.FillColor = vbGreen    Line (1000, 1000)-(1500, 1500), vbRed, B    Circle (2000, 2000), 100, vbBlue End Sub

Enjoy it!

Сорри, я чего-то не понял - этот код выдает НЕзалитые красный квадрат и синий круг.
Мне нужны закрашенные полигоны, причем "нестандартные" - т.е. не только прямоугольник и круг.

Эхм... тогда только АПИ
А чем АПИшки тебя так пугают?

Код

Private Sub Command1_Click()   Me.FillColor = vbGreen   Line (1000, 1000)-(1500, 1500), vbRed, BF End Sub

Там букву F добавь и будут залитые. А вот с радиусом ...Хм.. тут надо подумать. Но лучше помоему API

Полностью согласен, API проще всего. И быстрее чем свой алгоритм ваять.
Цитата "Советы тем, кто программирует на VB & VBA" и тамже пример.

Цитата

Те, кто работал с QuickBasic (в среде DOS), возможно, помнят, что там был оператор PAINT, который позволял заливать поверхности фигур произвольных очертаний. В системе VB этот оператор отсутствует и встроенные VB-функции позволяют выполнять заливку только "стандартных" фигур, например прямоугольника или круга, что явно недостаточно для решения многих графических задач.

'Рендеринг одноцветного треугольника
[CODE]
Sub DrawTriangle(DrawnedForm As Form, Tri As Triangle)
On Error Resume Next
Set FM = DrawnedForm
Dim C As Double, Tmp, D As POINTAPI
'FM.Line (Tri.A.x, Tri.A.y)-(Tri.B.x, Tri.B.y)
'FM.Line -(Tri.C.x, Tri.C.y)
'FM.Line -(Tri.A.x, Tri.A.y)
If Tri.A.y > Tri.B.y Then D = Tri.A: Tri.A = Tri.B: Tri.B = D 'сортировка по y
If Tri.A.y > Tri.C.y Then D = Tri.A: Tri.A = Tri.C: Tri.C = D
If Tri.B.y > Tri.C.y Then D = Tri.B: Tri.B = Tri.C: Tri.C = D
For i = Tri.A.y To Tri.C.y
X1 = Tri.A.x + (i - Tri.A.y) * (Tri.C.x - Tri.A.x) / (Tri.C.y - Tri.A.y)
If i < Tri.B.y Then
X2 = Tri.A.x + (i - Tri.A.y) * (Tri.B.x - Tri.A.x) / (Tri.B.y - Tri.A.y)
Else
X2 = Tri.B.x + (i - Tri.B.y) * (Tri.C.x - Tri.B.x) / (Tri.C.y - Tri.B.y)
If X1 > X2 Then Tmp = X1: X1 = X2: X2 = Tmp
End If

FM.Line (X1, i)-(X2, i)

Next
End Sub

[CODE]

Public Type POINTAPI
x As Long
y As Long
z As Long
End Type
Public Type Triangle
A As POINTAPI
B As POINTAPI
C As POINTAPI
End Type

ОГО!!!
Сейчас будем разбираться.
Спасибо.