dotNETportal.cz

Ahojte...tak na MSDN mi poradili tuto fintu a funguje, takže ktokoľvek by niekedy niečo podobné potreboval, ide to takto

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each c As Control In Controls
            If TypeOf c Is TextBox Then
                AddHandler c.Enter, AddressOf TextBox_Enter
                AddHandler c.Leave, AddressOf TextBox_Leave
            End If
        Next
    End Sub


    Private Sub TextBox_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)
        DirectCast(sender, TextBox).BackColor = Color.Yellow
    End Sub

    Private Sub TextBox_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs)
        DirectCast(sender, TextBox).BackColor = Color.White
    End Sub

Jde to daleko jednodušeji s pomocí jediného handleru a bez zbytečného cyklu:

Public Class Form1
  Private _lastTextBox As TextBox
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
    'Nastavit na první TextBox (první podle TabOrder)
    _lastTextBox = TextBox1
  End Sub
  Private Sub TextBoxes_Enter(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter
    Dim currentTextBox = DirectCast(sender, TextBox)
    _lastTextBox.BackColor = SystemColors.Window
    currentTextBox.BackColor = Color.Yellow
    _lastTextBox = currentTextBox
  End Sub
End Class