浅析VB.NET绘制GDI图形的方法
创始人
2024-06-09 00:10:55
0

在向大家详细介绍用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图形

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

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

【编辑推荐】

  1. 讲解VB.NET访问注册表方法
  2. 浅析VB.NET开发自动分页
  3. VB.NET ListView控件经验总结
  4. 概括VB.NET获取网卡地址的步骤
  5. 讲述VB.NET制作透明窗体

相关内容

热门资讯

如何允许远程连接到MySQL数... [[277004]]【51CTO.com快译】默认情况下,MySQL服务器仅侦听来自localhos...
如何利用交换机和端口设置来管理... 在网络管理中,总是有些人让管理员头疼。下面我们就将介绍一下一个网管员利用交换机以及端口设置等来进行D...
施耐德电气数据中心整体解决方案... 近日,全球能效管理专家施耐德电气正式启动大型体验活动“能效中国行——2012卡车巡展”,作为该活动的...
20个非常棒的扁平设计免费资源 Apple设备的平面图标PSD免费平板UI 平板UI套件24平图标Freen平板UI套件PSD径向平...
德国电信门户网站可实时显示全球... 德国电信周三推出一个门户网站,直观地实时提供其安装在全球各地的传感器网络检测到的网络攻击状况。该网站...
为啥国人偏爱 Mybatis,... 关于 SQL 和 ORM 的争论,永远都不会终止,我也一直在思考这个问题。昨天又跟群里的小伙伴进行...
《非诚勿扰》红人闫凤娇被曝厕所... 【51CTO.com 综合消息360安全专家提醒说,“闫凤娇”、“非诚勿扰”已经被黑客盯上成为了“木...
2012年第四季度互联网状况报... [[71653]]  北京时间4月25日消息,据国外媒体报道,全球知名的云平台公司Akamai Te...