本文实现了在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
''(QQ2531263726)
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
''长期提供单片机、电路板、工控、自动化、机电液、软件EXE、APP开发项目和产品设计开发服务。