标签：Dim VB Sub 自定义 visual 窗体 huayuan 函数

打开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

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

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

标签：Dim,VB,Sub,自定义,visual,窗体,huayuan,函数
来源： https://blog.csdn.net/normer123456/article/details/118484178

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。