【分享】一个在VB.net中画圆的程序

那天笔者在写软件的时候，遇见了一个需要：是要做一个报警指示灯，接收串口发送来的数据，当数据大于报警阈值时亮红灯，小于报警阈值时亮绿灯。那就需要在软件界面画一个圆圈，并在圆圈里面填充相应的颜色，然后笔者查阅了大量资料，找到了在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
''在本类其他子程序里面把参数改下，调用以下指令就可以画圆了
''DrawCircle(New Point(300 , 15 ), 10, Brushes.Green)
End Class
'更多好文，敬请关注微信公众号“永珂在线”