|
|
|
Forum Member
 
участник
Last Login: 18.01.2004 22:56
Сообщ.: 29,
Visits: 320
|
|
Привет, разработчики!
Может кто подскажет как сделать форму в виде кляксы, получается сделать
только форму с острыми углами:
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)
...Заранее спасибо!
|
|
|
|
|
Supreme Being
участник
Last Login: 26.07.2006 23:16
Сообщ.: 125,
Visits: 1 377
|
|
Попробуйте добавлять в 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)
Точки придется подбирать опытным путем.
|
|
|
|
|
Supreme Being
участник
Last Login: 26.07.2006 23:16
Сообщ.: 125,
Visits: 1 377
|
|
Извиняюсь если надо сделать форму в виде того что написано в 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)
Еще раз извините за мою невнимательность...
|
|
|
|