Релиб / Программирование / .NET / VB.NET / Неправильная форма на VB.NET / Latest Posts

RE: Неправильная форма на VB.NET

Aniskov — Mon, 29 Dec 2003 11:22:00 GMT

Извиняюсь если надо сделать форму в виде того что написано в Graphicspath'е, то используйте код:

Dim p As New System.Drawing.Drawing2D.GraphicsPath()
Dim pnt(9) As PointF
pnt(0) = New PointF(0, 0)
pnt(1) = New PointF(0, 100)
pnt(2) = New PointF(20, 100)
pnt(3) = New PointF(70, 20)
pnt(4) = New PointF(70, 100)
pnt(5) = New PointF(90, 100)
pnt(6) = New PointF(90, 0)
pnt(7) = New PointF(70, 0)
pnt(8) = New PointF(20, 80)
pnt(9) = New PointF(20, 0)
p.AddClosedCurve(pnt)
Me.Region = New Region(p)

Еще раз извините за мою невнимательность...

RE: Неправильная форма на VB.NET

Aniskov — Mon, 29 Dec 2003 10:52:00 GMT

Попробуйте добавлять в Graphicspath "закрытую кривую".
Код следующий:
Dim p As New System.Drawing.Drawing2D.GraphicsPath()
Dim pnt(9) As PointF
pnt(0) = New PointF(0, 0)
pnt(1) = New PointF(0, 100)
pnt(2) = New PointF(20, 100)
pnt(3) = New PointF(70, 20)
pnt(4) = New PointF(70, 100)
pnt(5) = New PointF(90, 100)
pnt(6) = New PointF(90, 0)
pnt(7) = New PointF(70, 0)
pnt(8) = New PointF(20, 80)
pnt(9) = New PointF(20, 0)
p.AddClosedCurve(pnt)
Dim g As Graphics
g = Me.CreateGraphics
g.DrawPath(New Pen(Color.Brown), p)
Точки придется подбирать опытным путем.

Неправильная форма на VB.NET

.::neo::. — Sat, 11 Oct 2003 23:37:00 GMT

Привет, разработчики!

Может кто подскажет как сделать форму в виде кляксы, получается сделать
только форму с острыми углами:

Dim Path As z.GraphicsPath = New z.GraphicsPath()
Dim pnt(9) As PointF
pnt(0) = New PointF(0, 0)
pnt(1) = New PointF(0, 100)
pnt(2) = New PointF(20, 100)
pnt(3) = New PointF(70, 20)
pnt(4) = New PointF(70, 100)
pnt(5) = New PointF(90, 100)
pnt(6) = New PointF(90, 0)
pnt(7) = New PointF(70, 0)
pnt(8) = New PointF(20, 80)
pnt(9) = New PointF(20, 0)
Path.AddPolygon(pnt)
Me.Region = New Region(Path)

...Заранее спасибо!