浅析VB.NET绘制GDI图形的方法

在向大家详细介绍用VB.NET绘制GDI图形之前，首先让大家了解下VB.NET是什么，然后全面介绍VB.NET绘制GDI图形。

创新互联是网站建设专家,致力于互联网品牌建设与网络营销，专业领域包括成都网站设计、做网站、电商网站制作开发、成都小程序开发、微信营销、系统平台开发，与其他网站设计及系统开发公司不同，我们的整合解决方案结合了恒基网络品牌建设经验和互联网整合营销的理念，并将策略和执行紧密结合，且不断评估并优化我们的方案，为客户提供全方位的互联网品牌整合方案！

Visual Basic.NET是基于微软.NET Framework之上的面向对象的中间解释性语言，可以看作是Visual Basic在.Net Framework平台上的升级版本,增强了对面向对象的支持。但由于改动太大，导致VB.net对VB的向后兼容性不好，在业界引起不小的争议。

大多的VB.Net程序员使用Visual Studio .Net作为IDE（integrated development environment). SharpDevelop是另一种可用的开源的IDE。VB.Net需要在.Net Framework平台上才能执行。 VB.NET的主页http://msdn.microsoft.com/vbasic

用VB.NET绘制GDI图形

 
 
 
  
  
  Protected Overrides Sub onpaint(ByVal e As System.Windows.Forms.PaintEventArgs)    
  
  '绘制任意直线    
  
  Dim g As Graphics = e.Graphics    
  
  Dim mypen As Pen = New Pen(Color.Red, 2)    
  
  g.DrawLine(mypen, 100, 100, 10, 10)    
  
  '绘制矩形(任意直线构成的封闭图形)    
  
  Dim point1 As PointF = New PointF(100F, 100F)    
  
  Dim point2 As PointF = New PointF(200F, 100F)    
  
  Dim point3 As PointF = New PointF(200F, 200F)    
  
  Dim point4 As PointF = New PointF(100F, 200F)    
  
  Dim curvepoints As PointF() = {point1, point2, point3, point4}    
  
  g.DrawPolygon(New Pen(Color.Blue, 2), curvepoints)    
  
  '文本表示    
  
  Dim FFamily As FontFamily = New FontFamily("Arial")    
  
  Dim font As Font = New Font(FFamily, "20", FontStyle.Bold, FontStyle.Italic,    
  
  GraphicsUnit.Pixel)    
  
  Dim text As String = "I love you!"   
  
  Dim solidbrush As SolidBrush = New SolidBrush(Color.Red)    
  
  Dim pr As PointF = New PointF(100, 10)    
  
  e.Graphics.DrawString(text, font, solidbrush, pr)    
  
  '平面绘制    
  
  Dim rec As RectangleF = New RectangleF(10, 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, 300, 200, 200, 100, 100)    
  
  g.DrawCurve(mypen, curvepoints)    
  
  g.DrawBezier(mypen, 50, 50, 100, 50, 100, 100, 50, 100)    
  
  g.DrawBeziers(mypen, curvepoints)    
  
  '这可是一个圆    
  
  Dim rec1 As RectangleF = New RectangleF(10, 10, 100, 100)    
  
  g.DrawEllipse(mypen, rec1)    
  
  '这是一个椭圆    
  
  Dim rec2 As RectangleF = New RectangleF(10, 10, 200, 100)    
  
  g.DrawEllipse(mypen, rec2)    
  
  End Sub

以上介绍VB.NET绘制GDI图形，这些是我自己试验出来的，当然了，还有好多，我只是开了一个头，大家要是发现什么好东东，别忘了通知一下。

当前题目：浅析VB.NET绘制GDI图形的方法
本文URL：http://www.gawzjz.com/qtweb2/news19/28919.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容