如何通过Timer实现窗体背景色在红、白间循环闪烁？

问题分析 #

你之前用Do While循环的思路不对——WinForms的UI线程是单线程的，循环会直接卡死界面，而且颜色切换会瞬间完成，根本看不到闪烁效果。Timer控件的核心是每隔固定时间触发一次Tick事件，我们只需要在每次触发时切换背景色就行。

具体实现步骤 #

1. 准备Timer控件：

   • 把Timer的Interval属性设为你想要的闪烁间隔（比如500，代表500毫秒切换一次，数值越小闪得越快）
   • 初始把Enabled设为False，避免窗体一打开就闪烁

2. 添加状态变量：
   在窗体类的顶部（所有方法外面）定义一个布尔变量，用来记录当前背景色状态：

   Private isRed As Boolean = True ' 初始背景是红色，所以设为True
   

3. 修改Timer的Tick事件：
   每次Tick触发时，根据当前状态切换背景色，同时更新状态变量：

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       If isRed Then
           ' 当前是红色，切换为白色
           Me.BackColor = Color.White
       Else
           ' 当前是白色，切换为红色
           Me.BackColor = Color.Red
       End If
       ' 翻转状态
       isRed = Not isRed
   End Sub
   

4. 添加触发逻辑（比如按钮点击）：
   在按钮的Click事件里启动Timer：

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Timer1.Enabled = True ' 启动闪烁
       ' 如果需要停止闪烁，可以加个判断：比如再次点击按钮停止
       ' Timer1.Enabled = Not Timer1.Enabled
   End Sub
   

额外说明 #

• 如果需要停止闪烁，只需要把Timer1.Enabled设为False就行
• 你也可以直接用Color.Red和Color.White，不用写Color.FromArgb(255,255,255)，更简洁

内容的提问来源于stack exchange，提问作者Neil Schulz