怎么在vb里画圆弧(vb.net中画圆和矩形的方法)
那天笔者在做项目写软件的时候,遇见了一个需要:要做一个报警指示灯,接收串口发送来的数据,当数据大于报警阈值时亮红灯,小于报警阈值时亮绿灯那就需要在软件界面窗体画一个圆圈,并在圆圈里面填充相应的颜色,然后笔者在网上查阅了大量资料,试了很多代码,一个不行再试另一个,万千尝试,终于找到了在VB.net中画圆圈圈的代码指令,经过实践成功分享给大家,下面我们就来说一说关于怎么在vb里画圆弧?我们一起去了解并探讨一下这个问题吧!
怎么在vb里画圆弧
那天笔者在做项目写软件的时候,遇见了一个需要:要做一个报警指示灯,接收串口发送来的数据,当数据大于报警阈值时亮红灯,小于报警阈值时亮绿灯。那就需要在软件界面窗体画一个圆圈,并在圆圈里面填充相应的颜色,然后笔者在网上查阅了大量资料,试了很多代码,一个不行再试另一个,万千尝试,终于找到了在VB.net中画圆圈圈的代码指令,经过实践成功分享给大家。
以下实现了在VB.net中画圆的操作,代码供参考:
Imports System.Drawing ''首先引入命名空间
'----------------窗口1的类---------------
Public Class Form1
'画圆子函数
Private Sub DrawCiRCle(ByVal cp As Point, ByVal radius As Integer, ByVal color As Brush)
Dim gr As Graphics
gr = Me.CreateGraphics
Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)
gr.DrawEllipse(Pens.Black, rect)
gr.FillEllipse(color, rect)
End Sub
''在本类其他子程序里面把参数改下,调用以下指令就可以画圆了
同样地,顺便把在VB.NET中画矩形的代码分享一下。
Imports System.Drawing ''引入命名空间
'----------------窗口1的类---------------
Public Class Form1
'画矩形子函数
Private Sub DrawRectangleInt(ByVal X As Integer, ByVal Y As Integer, ByVal W As Integer, ByVal H As Integer, ByVal color As Brush)
Dim bggriphic As Graphics
Dim RC As Rectangle
bggriphic = Me.CreateGraphics
RC.X = X
RC.Y = Y
RC.Width = W
RC.Height = H
'bggriphic.DrawRectangle(Pens.Black, RC) ''画边框
bggriphic.FillRectangle(color, RC) ''填充
End Sub
''在本类其他子程序里面参数改下,调用以下指令就可以画矩形了
'' DrawRectangleInt(0, 0, 100, 100, Brushes.Black)
End Class
,免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com