打开visual studio2019,新建一个windows窗体应用。
在窗体上添加一个picturebox控件。
双击窗体空白处,进入编程。
''' <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
然后调式启动看一下效果。
上面是简单的例子,主要是针对动态画图形的函数,对于简单的状态显示足够用了,比如用于工控。