Dim g as PaintBox1.CreateGraphics
Dim PPen as new Pen(Color.Red)
Dim Bbrush as New SolidBrush(Color.Green)
'// Lines
g.DrawLine(PPen,1,1,50,50)
g.DrawBezier(PPen,15,15,30,30,45,30,87,20)
g.DrawEllipse(PPen, New Rectangle(33,45,40,50))
g.DrawPolyGon(PPen, New PointF(), {New PointF(1,1), New PointF(20,10), New PointF(100,2), New PointF(200,50, New PointF(39,45)})
'// Solids
g.FillRectangle(Bbrush, New Rectangle(50,50,100,100))
g.FillPie(Bbrush, New Rectangle(20,20,55,74))
'// Haven't actually tried some of this code.
Thursday, October 20, 2005
Subscribe to:
Post Comments (Atom)


No comments:
Post a Comment