Wie um zu überprüfen, fokussiert TextBox in vb.net winforms?

Offensichtlich wird es nicht funktionieren, wenn Sie anrufen, Ihren code in einer Button_Click weil, wenn Sie auf die Schaltfläche, dann der Fokus selbst ist, geht die Schaltfläche, die Sie geklickt haben.

Können Sie zwei Dinge tun:

Stellen eine Kombination von Fokus-Veranstaltung für alle Textboxen und überprüfen Sie, ob Sender-Objekts.

Private Sub TextBox_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.Enter, TextBox3.Enter
    Dim currTextBox As TextBox = sender

    If currTextBox.Equals(TextBox2) Then
        MessageBox.Show("it's in two")
    ElseIf currTextBox.Equals(TextBox3) Then
        MessageBox.Show("it's in three")
    End If

End Sub

ODER

Nehmen eine Globale string-variable, und setzen Sie seinen Wert auf jede TextBox_Focus Fall, dann überprüfen Sie die string-Wert, der in der Schaltfläche click-Ereignis.

 Dim str As String  
 Private Sub TextBox2_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles TextBox2.Enter
     str = "two"
 End Sub

 Private Sub TextBox3_Focus(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles TextBox3.Enter
     str = "three"
 End Sub

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)  Handles Button1.Click
      MessageBox.Show("it's in " & str)
 End Sub

Ich weiß, dass es bereits eine akzeptierte Antwort, aber ich denke nur, diese Methode ist etwas einfacher und soll hier für Leute, die finden diese über Google oder was auch immer.

Public focussedTextBox As TextBox
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    For Each control As Control In Me.Controls
        If control.GetType.Equals(GetType(TextBox)) Then
            Dim textBox As TextBox = control
            AddHandler textBox.Enter, Sub() focussedTextBox = textBox
        End If
    Next
End Sub

Diese Weise können Sie dann einfach beziehen sich auf die focussedTextBox zu jeder Zeit. Sie sollten sicherstellen, dass Sie überprüfen, dass es eine focussedTextBox bevor Sie das jedoch tun, weil, wenn die Anwendung zum ersten mal geladen wird es nicht. Sie können dies tun, indem Sie:

If Not focussedTextBox Is Nothing Then
    ...
End If

Alternativ können Sie focussedTextBox an eine TextBox Ihrer Wahl laden der form, entweder indem Sie seinen Wert oder durch die Konzentration der TextBox.