如何实现TextBox每秒自动切换焦点？VB.NET技术求助

看起来你已经搞定了TextBox获得焦点时的背景色变化，但核心的自动轮询切换焦点逻辑还没加上。之前用Timer没成功，大概率是选了不对的Timer类型（比如误用了WPF的DispatcherTimer，或者用了非UI线程的System.Timers.Timer），或者没做好焦点切换的顺序管理。

下面给你一套完整的解决方案，基于WinForms的System.Windows.Forms.Timer（这个Timer是在UI线程触发，不需要额外的跨线程调用，最适合你的场景）：

步骤说明 #

• 把所有需要切换的TextBox存入一个列表，方便按顺序循环切换
• 用WinForms Timer每隔1秒触发一次切换逻辑
• 维护一个当前焦点的索引，每次Tick时计算下一个TextBox，调用Focus()让它获得焦点
• 简化Enter事件处理，不用每个TextBox写单独的方法，统一处理更简洁

修改后的完整代码 #

Public Class Form1
    ' 声明Timer、TextBox列表和当前索引
    Private WithEvents focusTimer As New System.Windows.Forms.Timer()
    Private textBoxes As New List(Of TextBox)()
    Private currentIndex As Integer = 0

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 把所有需要切换的TextBox加入列表（按你想要的切换顺序排列）
        textBoxes.Add(TextBox1)
        textBoxes.Add(TextBox2)
        textBoxes.Add(TextBox3)
        textBoxes.Add(TextBox4)
        textBoxes.Add(TextBox5)
        textBoxes.Add(TextBox6)
        textBoxes.Add(TextBox7)
        textBoxes.Add(TextBox8)
        textBoxes.Add(TextBox9)
        textBoxes.Add(TextBox10)
        textBoxes.Add(TextBox11)
        textBoxes.Add(TextBox12)

        ' 给每个TextBox绑定统一的Enter事件
        For Each tb In textBoxes
            AddHandler tb.Enter, AddressOf TextBox_Enter
        Next

        ' 配置Timer：间隔1秒，启动Timer
        focusTimer.Interval = 1000
        focusTimer.Start()

        ' 初始让第一个TextBox获得焦点
        textBoxes(currentIndex).Focus()
    End Sub

    ' 统一的TextBox Enter事件处理
    Private Sub TextBox_Enter(sender As Object, e As EventArgs)
        ' 根据TextBox的索引设置对应的背景色（和你原来的逻辑对应）
        Select Case textBoxes.IndexOf(CType(sender, TextBox))
            Case 0
                BackColor = Color.Red
            Case 1
                BackColor = Color.Blue
            Case 2
                BackColor = Color.Yellow
            Case 3
                BackColor = Color.Green
            Case 4
                BackColor = Color.Pink
            Case 5
                BackColor = Color.Teal
            Case 6
                BackColor = Color.SteelBlue
            Case 7
                BackColor = Color.LightGray
            Case 8
                BackColor = Color.Gold
            Case 9
                BackColor = Color.BlueViolet
            Case 10
                BackColor = Color.Orange
            Case 11
                BackColor = Color.Brown
        End Select
    End Sub

    ' Timer的Tick事件：每隔1秒切换焦点
    Private Sub focusTimer_Tick(sender As Object, e As EventArgs) Handles focusTimer.Tick
        ' 计算下一个索引，循环回到开头
        currentIndex = (currentIndex + 1) Mod textBoxes.Count
        ' 让下一个TextBox获得焦点
        textBoxes(currentIndex).Focus()
    End Sub
End Class

关键注意点 #

• 为什么之前用Timer失败？

  • 如果用的是System.Timers.Timer：它的Tick事件是在非UI线程触发的，直接调用Focus()会抛出跨线程操作异常，需要用Invoke来切换到UI线程执行。而System.Windows.Forms.Timer是专门为WinForms设计的，Tick事件直接在UI线程触发，不需要额外处理。
  • 如果误用了DispatcherTimer：这是WPF框架里的Timer，WinForms项目里不能直接用，所以肯定无效。

• 关于焦点切换顺序：你可以调整textBoxes.Add()的顺序，来匹配你时钟设计图里的切换逻辑（比如按时钟数字的顺序循环）。

附上你的时钟设计图，方便对应逻辑：

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