如何找出当前选择了哪个文本框

Question

我有 3 个文本框，我如何找出当前选择了哪个文本框（有焦点）。我什么都想不出来。

Public Class Form1
    Public activeTextBox As TextBox = CType(Me.ActiveControl, TextBox)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        activeTextBox.Text = activeTextBox.Text & "This is text 1"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        activeTextBox.Text = activeTextBox.Text & "This is the text 2"
    End Sub
End Class

Answer 1

我假设这是一个 Windows 窗体应用程序。

similar question 提供了两个可能的建议：

Me.ActiveControl 

或者，您可以使用 Windows API 编写一个方法来获取当前具有焦点的控件的句柄。 WindowsClient.Net 上的这个article 有一个例子。

但是，只有在调用方法时 TextBox 仍具有焦点时，这些选项中的每一个才有效。

在您的按钮事件处理程序中，您试图找出哪个是最后一个活动的 TextBox，以便对其进行处理。在这种情况下，Me.ActiveControl 将没有多大用处，因为一旦您单击按钮，TextBox 控件就会失去焦点。下面的示例代码显示了如何使用 TextBox 的 Enter 和 Leave 事件来跟踪哪个 TextBox 是最近活动的。我假设 TextBox 被称为 TextBox1。

        Public Class Form1
            Public activeTextBox As TextBox 

Private Sub TextBox_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter
   activeTextBox = CType(sender, TextBox)
End Sub    

            Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
              If (activeTextBox IsNot Nothing) Then
              activeTextBox.Text = activeTextBox.Text & "This is text 1"
End If
          End Sub

          Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

              If (activeTextBox IsNot Nothing) Then
              activeTextBox.Text = activeTextBox.Text & "This is the text 2"
End If
          End Sub
    End Class