＜.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 = bEnd Sub

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

3、走马灯
如上图，我们一共添加了8个PictureBox，用于实现走马灯，即8个图片框按顺序点亮（由灰色变为红色）。实现这个功能有多种方式，本文选择的是利用定时器来实现。
所以，我们需要在窗体添加一个Timer控件。
在这里插入图片描述
在VB.net中，Timer控件是系统工具箱自带的，可以直接拖到窗体上。
Timer的使用也很简单，设置一下其定时间隔：

Timer1.Interval = NumericUpDown1.Value

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

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tickx += 1'Console.WriteLine(x)If x <= 8 And flag ThenButton1.Enabled = FalseMove_led(x, 1)ElseButton1.Enabled = TrueButton2.Enabled = FalseButton3.Enabled = Falsex = 0Label12.Text = 0Label14.Text = "停止中"'走马灯完成后，恢复初始状态init_led()Timer1.Stop()flag = FalseEnd IfEnd Sub

其中调用的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 1Dim 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 Thenhuayuan(pic1, Color.Red)Elsehuayuan(pic1, Color.Gray)End If'添加异步等待时间'Await Task.Delay(1)Next'添加异步等待时间'Await Task.Delay(timedelay)End Sub

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

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

Imports System.Threading.Thread
Public Class Form1Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.LoadMe.Text = "走马灯演示"Me.Size = New Size(600, 400)Me.Location = New Point(100, 40)NumericUpDown1.Value = 100'最长间隔100000ms=100sNumericUpDown1.Maximum = 100000'最短间隔10ms=0.01sNumericUpDown1.Minimum = 10Timer1.Interval = 100Label12.Text = 0Label14.Text = "无"Button2.Enabled = FalseButton3.Enabled = Falseinit_led()End SubPrivate Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickTimer1.Interval = NumericUpDown1.ValueTimer1.Start()flag = TrueLabel14.Text = "运行中"Button1.Enabled = FalseButton2.Enabled = TrueButton3.Enabled = FalseEnd SubPrivate Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickTimer1.Stop()flag = FalseButton1.Enabled = TrueLabel14.Text = "停止中"Button1.Enabled = TrueButton2.Enabled = FalseButton3.Enabled = TrueEnd SubPrivate Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickTimer1.Stop()flag = Falsex = 0Label14.Text = "无"Label12.Text = 0Button1.Enabled = TrueButton2.Enabled = FalseButton3.Enabled = FalseFor i As Integer = 1 To 8 Step 1Dim pic1 = Me.Controls("PictureBox" & i)huayuan(pic1, Color.Gray)NextEnd SubDim x As Integer = 0Dim flag As Boolean = FalsePrivate Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tickx += 1'Console.WriteLine(x)If x <= 8 And flag ThenButton1.Enabled = FalseMove_led(x, 1)ElseButton1.Enabled = TrueButton2.Enabled = FalseButton3.Enabled = Falsex = 0Label12.Text = 0Label14.Text = "停止中"'走马灯完成后，恢复初始状态init_led()Timer1.Stop()flag = FalseEnd IfEnd Sub''' <summary>''' 初始化参数''' </summary>Private Sub init_led()'统一为Label赋值For i As Integer = 1 To 8 Step 1Me.Controls("Label" & i).Text = "灯" & iDim pic1 = Me.Controls("PictureBox" & i)huayuan(pic1, Color.Gray)Console.WriteLine(pic1.Name)NextEnd 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 1Dim 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 Thenhuayuan(pic1, Color.Red)Elsehuayuan(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 = bEnd SubEnd Class