it-swarm.com.ru

Как узнать, какой элемент управления находится в фокусе .NET Windows Forms?

Как узнать, какой элемент управления имеет фокус в Windows Forms ?

18
Jeff

Form.ActiveControl может быть, что вы хотите.

29
Ken Browning

Обратите внимание, что при использовании иерархий одного вызова ActiveControl недостаточно. Представить:

Form
    TableLayoutPanel
        FlowLayoutPanel
            TextBox (focused)

(formInstance).ActiveControl вернет ссылку на TableLayoutPanel, а не TextBox

Так что используйте это (полное раскрытие: адаптировано из этот ответ C #

  Function FindFocussedControl(ByVal ctr As Control) As Control
    Dim container As ContainerControl = TryCast(ctr, ContainerControl)
    Do While (container IsNot Nothing)
      ctr = container.ActiveControl
      container = TryCast(ctr, ContainerControl)
    Loop
    Return ctr
  End Function
8
MarkJ

В C # я делаю это:

        if (txtModelPN != this.ActiveControl)
            txtModelPN.BackColor = Color.White;

txtModelPN - это текстовое поле, которое я выделяю при вводе и mouseEnter, и де-выделение при Leave, MouseLeave. За исключением случаев, когда это текущий элемент управления, я не устанавливаю фон обратно белым. 

VB эквивалент будет выглядеть следующим образом

IF txtModelPN <> Me.ActiveControl Then
   txtModelPN.BackColor = Color.White
End If
3
xDJR1875

Вы можете использовать свойство ActiveControl формы и использовать этот элемент управления.

me.ActiveControl

Или же

Form.ActiveControl
2
user2721444

Вы можете использовать это, чтобы найти по имени элемента управления.

    If DataGridView1.Name = Me.ActiveControl.Name Then
        TextBox1.Visible = True
    Else
        TextBox1.Visible = False
    End If
1
KHALID

Я использовал следующее:

Private bFocus = False
Private Sub txtUrl_MouseEnter(sender As Object, e As EventArgs) Handles txtUrl.MouseEnter
    If Me.ActiveControl.Name <> txtUrl.Name Then
        bFocus = True
    End If
End Sub

Private Sub txtUrl_MouseUp(sender As Object, e As MouseEventArgs) Handles txtUrl.MouseUp
    If bFocus Then
        bFocus = False
        txtUrl.SelectAll()
    End If
End Sub

Я установил переменную только на MouseEnter, чтобы улучшить магию

0
user9553193