Thursday, October 20, 2005

GDI+ Code VB.Net example

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.

No comments:

Post a Comment