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

打开visual studio2019,新建一个windows窗体应用。
使用visual Studio 2019在VB.net中新添自定义画图函数
在窗体上添加一个picturebox控件。
使用visual Studio 2019在VB.net中新添自定义画图函数
双击窗体空白处,进入编程。

    ''' <summary>
    ''' 本函数为自定义函数,绘制圆形图形
    ''' </summary>
    ''' <param name="p">图像框</param>
    ''' <param name="c">颜色</param>
    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

然后调式启动看一下效果。
使用visual Studio 2019在VB.net中新添自定义画图函数
上面是简单的例子,主要是针对动态画图形的函数,对于简单的状态显示足够用了,比如用于工控。

上一篇:基于ECS搭建Docker环境


下一篇:LeetCode 剑指 Offer 07. 重建二叉树(不递归不知道C++传vector多么浪费时间)