＜.Net＞使用visual Studio 2022在VB.net中新添自定义画图函数（优化版）

前言
这是基于我之前的一篇博文：
使用visual Studio 2019在VB.net中新添自定义画图函数
在此基础上，我优化了一下，改进了UI，添加了示例功能，即以画圆函数为基础，添加了走马灯功能。
先看一下最终效果：

1、UI布置
首先大致布局一下窗体控件：

VB.net的窗体布局很简单，当然同时效果也就那样，如果要UI美观，需要自己设计一下，包括配色以及图片。
但本文不涉及UI美化，可能会在以后单独介绍。

2、画圆函数

   ''' <summary> 
   ''' 在PictureBox中画一个圆
   ''' </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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

画圆函数还是和之前一样，稍微解释下：
自定义的huayuan函数，有两个参数，一个是PictureBox实例，一个是颜色。
函数内，使用bitmap绘制圆形并填充色块，即我们所需的圆形，然后将bitmap作为image赋予PictureBox的图片属性。
这样我们就在图片框中画了一个圆形。

3、走马灯
如上图，我们一共添加了8个PictureBox，用于实现走马灯，即8个图片框按顺序点亮（由灰色变为红色）。实现这个功能有多种方式，本文选择的是利用定时器来实现。
所以，我们需要在窗体添加一个Timer控件。

在VB.net中，Timer控件是系统工具箱自带的，可以直接拖到窗体上。
Timer的使用也很简单，设置一下其定时间隔：

Timer1.Interval = NumericUpDown1.Value 
1

本文中，Timer的间隔可以自定义设置，单位为毫秒。

Timer设置了时间间隔后，直接调用start，定时器就启动了，每间隔一次，就会触发Tick事件，我们可以在这个Tick事件里去编写我们的逻辑，本文中，就是利用画圆函数给PictureBox轮流画圆。

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

    x += 1

    'Console.WriteLine(x)

    If x <= 8 And flag Then

        Button1.Enabled = False

        Move_led(x, 1)

    Else

        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False

        x = 0

        Label12.Text = 0

        Label14.Text = "停止中"

        '走马灯完成后，恢复初始状态
        init_led()

        Timer1.Stop()

        flag = False



    End If



End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

其中调用的Move_led函数如下：

 ''' <summary>   
 ''' 走马灯程序
 ''' 为了防止循环阻塞主线程，可以添加异步方式
 ''' </summary>
 Private Sub Move_led(count As Integer, timedelay As Integer)

     Label12.Text = count.ToString()

     For j As Integer = 1 To 8 Step 1

         Dim str11 = "x" & count.ToString() + "j" & j.ToString()
         'Console.WriteLine(str11)

         Dim pic1 As PictureBox = Me.Controls("PictureBox" & j)
         'Console.WriteLine(pic1.Name)

         If j = count Then



             huayuan(pic1, Color.Red)


         Else

             huayuan(pic1, Color.Gray)

         End If

         '添加异步等待时间
         'Await Task.Delay(1)

     Next

     '添加异步等待时间
     'Await Task.Delay(timedelay)

 End Sub
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38

这里的大致逻辑就是，设置一个计数，在定时器的Tick事件里，每次都判断计数的大小，如果小于8，就根据计数值执行画圆函数，当然此处又有一个判断函数Move_led，用于对8个图片框分别画圆。执行完后，对计数值加1，然后等待下次定时器触发再判断，直到计数值大于8，也就是走马灯结束，那么就恢复初始值。

以下是完整代码：
控件说明：
Form：1，
Button：3，
Label：14，
PictureBox：8，
NumericUpDown：1

Imports System.Threading.Thread
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Me.Text = "走马灯演示"
        Me.Size = New Size(600, 400)
        Me.Location = New Point(100, 40)

        NumericUpDown1.Value = 100
        '最长间隔100000ms=100s
        NumericUpDown1.Maximum = 100000
        '最短间隔10ms=0.01s
        NumericUpDown1.Minimum = 10

        Timer1.Interval = 100

        Label12.Text = 0
        Label14.Text = "无"

        Button2.Enabled = False
        Button3.Enabled = False


        init_led()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Timer1.Interval = NumericUpDown1.Value
        Timer1.Start()
        flag = True
        Label14.Text = "运行中"
        Button1.Enabled = False
        Button2.Enabled = True
        Button3.Enabled = False


    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        Timer1.Stop()
        flag = False
        Button1.Enabled = True
        Label14.Text = "停止中"

        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = True


    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Timer1.Stop()
        flag = False
        x = 0
        Label14.Text = "无"
        Label12.Text = 0

        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False

        For i As Integer = 1 To 8 Step 1

            Dim pic1 = Me.Controls("PictureBox" & i)
            huayuan(pic1, Color.Gray)

        Next

    End Sub

    Dim x As Integer = 0
    Dim flag As Boolean = False
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        x += 1

        'Console.WriteLine(x)

        If x <= 8 And flag Then

            Button1.Enabled = False

            Move_led(x, 1)

        Else

            Button1.Enabled = True
            Button2.Enabled = False
            Button3.Enabled = False

            x = 0

            Label12.Text = 0

            Label14.Text = "停止中"

            '走马灯完成后，恢复初始状态
            init_led()

            Timer1.Stop()

            flag = False



        End If



    End Sub

    ''' <summary>
    ''' 初始化参数
    ''' </summary>
    Private Sub init_led()

        '统一为Label赋值
        For i As Integer = 1 To 8 Step 1

            Me.Controls("Label" & i).Text = "灯" & i
            Dim pic1 = Me.Controls("PictureBox" & i)
            huayuan(pic1, Color.Gray)
            Console.WriteLine(pic1.Name)
        Next

    End Sub
    ''' <summary>
    ''' 走马灯程序
    ''' 为了防止循环阻塞主线程，可以添加异步方式
    ''' </summary>
    Private Sub Move_led(count As Integer, timedelay As Integer)

        Label12.Text = count.ToString()

        For j As Integer = 1 To 8 Step 1

            Dim str11 = "x" & count.ToString() + "j" & j.ToString()
            'Console.WriteLine(str11)

            Dim pic1 As PictureBox = Me.Controls("PictureBox" & j)
            'Console.WriteLine(pic1.Name)

            If j = count Then



                huayuan(pic1, Color.Red)


            Else

                huayuan(pic1, Color.Gray)

            End If

            '添加异步等待时间
            'Await Task.Delay(1)

        Next

        '添加异步等待时间
        'Await Task.Delay(timedelay)

    End Sub




    ''' <summary>
    ''' 在PictureBox中画一个圆
    ''' </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


End Class

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197

注：事实上本文虽然介绍的是画圆，但可以扩展到任意图形的绘制，只需要对huayuan函数作一些修改即可。我在之前的那篇文章里也说过，本文实际是用于工控行业的上位机编写的一部分，单独列出来，一是方便，作个记录，以便于后来查看，二是如果有这方面需求的朋友，假如能够帮助到你，那么也是非常好的。