日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關(guān)咨詢(xún)
選擇下列產(chǎn)品馬上在線溝通
服務(wù)時(shí)間：8:30-17:00
你可能遇到了下面的問(wèn)題
關(guān)閉右側(cè)工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營(yíng)銷(xiāo)解決方案
淺析VB.NET繪制GDI圖形的方法

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

創(chuàng)新互聯(lián)是網(wǎng)站建設(shè)專(zhuān)家,致力于互聯(lián)網(wǎng)品牌建設(shè)與網(wǎng)絡(luò)營(yíng)銷(xiāo)，專(zhuān)業(yè)領(lǐng)域包括成都網(wǎng)站設(shè)計(jì)、做網(wǎng)站、電商網(wǎng)站制作開(kāi)發(fā)、成都小程序開(kāi)發(fā)、微信營(yíng)銷(xiāo)、系統(tǒng)平臺(tái)開(kāi)發(fā)，與其他網(wǎng)站設(shè)計(jì)及系統(tǒng)開(kāi)發(fā)公司不同，我們的整合解決方案結(jié)合了恒基網(wǎng)絡(luò)品牌建設(shè)經(jīng)驗(yàn)和互聯(lián)網(wǎng)整合營(yíng)銷(xiāo)的理念，并將策略和執(zhí)行緊密結(jié)合，且不斷評(píng)估并優(yōu)化我們的方案，為客戶(hù)提供全方位的互聯(lián)網(wǎng)品牌整合方案！

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圖形

 
 
 
    
  
  
  
  1. Protected Overrides Sub onpaint(ByVal e As System.Windows.Forms.PaintEventArgs)  
    2.   
  
  
  2. '繪制任意直線  
    3.   
  
  
  3. Dim g As Graphics = e.Graphics  
    4.   
  
  
  4. Dim mypen As Pen = New Pen(Color.Red, 2)  
    5.   
  
  
  5. g.DrawLine(mypen, 100, 100, 10, 10)  
    6.   
  
  
  6. '繪制矩形(任意直線構(gòu)成的封閉圖形)  
    7.   
  
  
  7. Dim point1 As PointF = New PointF(100F, 100F)  
    8.   
  
  
  8. Dim point2 As PointF = New PointF(200F, 100F)  
    9.   
  
  
  9. Dim point3 As PointF = New PointF(200F, 200F)  
    10.   
  
  
  10. Dim point4 As PointF = New PointF(100F, 200F)  
    11.   
  
  
  11. Dim curvepoints As PointF() = {point1, point2, point3, point4}  
    12.   
  
  
  12. g.DrawPolygon(New Pen(Color.Blue, 2), curvepoints)  
    13.   
  
  
  13. '文本表示  
    14.   
  
  
  14. Dim FFamily As FontFamily = New FontFamily("Arial")  
    15.   
  
  
  15. Dim font As Font = New Font(FFamily, "20", FontStyle.Bold, FontStyle.Italic,  
    16.   
  
  
  16. GraphicsUnit.Pixel)  
    17.   
  
  
  17. Dim text As String = "I love you!" 
    18.   
  
  
  18. Dim solidbrush As SolidBrush = New SolidBrush(Color.Red)  
    19.   
  
  
  19. Dim pr As PointF = New PointF(100, 10)  
    20.   
  
  
  20. e.Graphics.DrawString(text, font, solidbrush, pr)  
    21.   
  
  
  21. '平面繪制  
    22.   
  
  
  22. Dim rec As RectangleF = New RectangleF(10, 10, 200, 100)  
    23.   
  
  
  23. g.DrawPie(mypen, rec, 150, 150)  
    24.   
  
  
  24. '封閉圖形，0.7應(yīng)該是個(gè)圓  
    25.   
  
  
  25. g.DrawClosedCurve(mypen, curvepoints, 0.7,  
    26.   
  
  
  26. Drawing.Drawing2D.FillMode.Alternate)  
    27.   
  
  
  27. '大家自己試試看吧  
    28.   
  
  
  28. g.DrawArc(mypen, 300, 300, 200, 200, 100, 100)  
    29.   
  
  
  29. g.DrawCurve(mypen, curvepoints)  
    30.   
  
  
  30. g.DrawBezier(mypen, 50, 50, 100, 50, 100, 100, 50, 100)  
    31.   
  
  
  31. g.DrawBeziers(mypen, curvepoints)  
    32.   
  
  
  32. '這可是一個(gè)圓  
    33.   
  
  
  33. Dim rec1 As RectangleF = New RectangleF(10, 10, 100, 100)  
    34.   
  
  
  34. g.DrawEllipse(mypen, rec1)  
    35.   
  
  
  35. '這是一個(gè)橢圓  
    36.   
  
  
  36. Dim rec2 As RectangleF = New RectangleF(10, 10, 200, 100)  
    37.   
  
  
  37. g.DrawEllipse(mypen, rec2)  
    38.   
  
  
  38. End Sub 
    39.

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


分享標(biāo)題：淺析VB.NET繪制GDI圖形的方法
本文路徑：http://m.5511xx.com/article/cociooc.html