一个在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

''长期提供单片机、电路板、工控、自动化、机电液、软件EXE、APP开发项目和产品设计开发服务。

''(QQ2531263726)