- 用VB.NET绘制GDI图形
- 下面的例子通过重载Form1窗体的OnPaint()方法绘制GDI图形
- ProtectedOverridesSubonpaint(ByValeAsSystem.Windows.Forms.PaintEventArgs)
- 注释://///////////绘制任意直线
- DimgAsGraphics=e.Graphics
- DimmypenAsPen=NewPen(Color.Red,2)
- g.DrawLine(mypen,100,10,10)
- 注释://///////////绘制矩形(任意直线构成的封闭图形)
- Dimpoint1AsPointF=NewPointF(100F,100F)
- Dimpoint2AsPointF=NewPointF(200F,100F)
- Dimpoint3AsPointF=NewPointF(200F,200F)
- Dimpoint4AsPointF=NewPointF(100F,200F)
- DimcurvepointsAsPointF()={point1,point2,point3,point4}
- g.DrawPolygon(NewPen(Color.Blue,2),curvepoints)
- 注释:////////////文本表示
- DimFFamilyAsFontFamily=NewFontFamily("Arial")
- DimfontAsFont=NewFont(FFamily,"20",FontStyle.Bold,FontStyle.Italic,GraphicsUnit.Pixel)
- DimtextAsString="Iloveyou!"
- DimsolidbrushAsSolidBrush=NewSolidBrush(Color.Red)
- DimprAsPointF=NewPointF(100,10)
- e.Graphics.DrawString(text,font,solidbrush,pr)
- 注释:////////////平面绘制
- DimrecAsRectangleF=NewRectangleF(10,200,100)
- g.DrawPie(mypen,rec,150,150)
- 注释:///////////封闭图形,0.7应该是个圆
- g.DrawClosedCurve(mypen,curvepoints,0.7,Drawing.Drawing2D.FillMode.Alternate)
- 注释:///////////大家自己试试看吧
- g.DrawArc(mypen,300,100)
- g.DrawCurve(mypen,curvepoints)
- g.DrawBezier(mypen,50,100)
- g.DrawBeziers(mypen,curvepoints)
- 注释://////////这可是一个圆
- Dimrec1AsRectangleF=NewRectangleF(10,100)
- g.DrawEllipse(mypen,rec1)
- 注释://////////这是一个椭圆
- Dimrec2AsRectangleF=NewRectangleF(10,100)
- g.DrawEllipse(mypen,rec2)
- EndSub
(编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|