如何检查vb.net winforms中的焦点TextBox？
我在表单中有多个文本框。我如何知道光标当前是什么文本框？
试着这样做：
If TextBox2.Focus() = True Then
MessageBox.Show("its in two")
ElseIf TextBox3.Focus = True Then
MessageBox.Show("its in three")
End If
没有找到相关结果
已邀请:
3 个回复
荆怖赡
中调用代码，它将无法工作，因为当您单击Button时，焦点本身将转到您单击的Button。 你可以做两件事： 为所有TextBox创建一个Focus事件并检查其Sender对象。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 SubDim 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慷祈霖黑
犯痪桂涛杭
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 SubIf Not focussedTextBox Is Nothing Then ... End If