在向大家詳細(xì)介紹用VB.NET繪制GDI圖形之前，首先讓大家了解下VB.NET是什么，然后全面介紹VB.NET繪制GDI圖形。

Visual Basic.NET是基于微軟.NET Framework之上的面向?qū)ο蟮闹虚g解釋性語(yǔ)言，可以看作是Visual Basic在.Net Framework平臺(tái)上的升級(jí)版本,增強(qiáng)了對(duì)面向?qū)ο蟮闹С帧５捎诟膭?dòng)太大，導(dǎo)致VB.net對(duì)VB的向后兼容性不好，在業(yè)界引起不小的爭(zhēng)議。

大多的VB.Net程序員使用Visual Studio .Net作為IDE（integrated development environment). SharpDevelop是另一種可用的開(kāi)源的IDE。VB.Net需要在.Net Framework平臺(tái)上才能執(zhí)行。 VB.NET的主頁(yè)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)  
'繪制矩形(任意直線構(gòu)成的封閉圖形)  
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應(yīng)該是個(gè)圓  
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)  
'這可是一個(gè)圓  
Dim rec1 As RectangleF = New RectangleF(10, 10, 100, 100)  
g.DrawEllipse(mypen, rec1)  
'這是一個(gè)橢圓  
Dim rec2 As RectangleF = New RectangleF(10, 10, 200, 100)  
g.DrawEllipse(mypen, rec2)  
End Sub 

以上介紹VB.NET繪制GDI圖形，這些是我自己試驗(yàn)出來(lái)的，當(dāng)然了，還有好多，我只是開(kāi)了一個(gè)頭，大家要是發(fā)現(xiàn)什么好東東，別忘了通知一下。

【編輯推薦】

1. 講解VB.NET訪問(wèn)注冊(cè)表方法
2. 淺析VB.NET開(kāi)發(fā)自動(dòng)分頁(yè)
3. VB.NET ListView控件經(jīng)驗(yàn)總結(jié)
4. 概括VB.NET獲取網(wǎng)卡地址的步驟
5. 講述VB.NET制作透明窗體