使用visual Studio 2019在VB.net中新添自定义画图函数

打开visual studio2019，新建一个windows窗体应用。

在窗体上添加一个picturebox控件。

双击窗体空白处，进入编程。

    ''' 

    ''' 本函数为自定义函数，绘制圆形图形
    ''' 
    ''' 图像框
    ''' 颜色
    Private Sub huayuan(p As PictureBox, c As Color)

        Dim b As Bitmap = New Bitmap(p.Width, p.Height)

        Dim g As Graphics = Graphics.FromImage(b)

        Dim mybrush As New SolidBrush(c)

        g.FillEllipse(mybrush, 0, 0, p.Width, p.Height)

        g.Dispose()

        p.Image = b

    End Sub

上面是函数本体，使用时直接调用huayuan。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        huayuan(PictureBox1, Color.Green)

End Sub

然后调式启动看一下效果。

上面是简单的例子，主要是针对动态画图形的函数，对于简单的状态显示足够用了，比如用于工控。