使用删除键清除 vb.net 中多个文本框中的焦点文本框

Question

我想要一个使用删除键在多个文本框中清除焦点文本框的好例子。 请帮我提供 vb.net 代码。

公共子是这样的：

Public Sub EmptyTxt(ByVal Frm As Form)
    Dim Ctl As Control
    For Each Ctl In Frm.Controls
        'If TypeOf Ctl Is TextBox Then Ctl.Text = ""

    Next
End Sub

然后我从 delete keydown 事件中调用这个子。 但它会清除所有文本框，而不是清除集中的文本框。

Answer 1

有一种更简单的方法可以做到这一点。

只需将所有文本框 keyDown 事件分配给同一个处理程序。 在该处理程序中，将 sender 强制转换为文本框并清除它。

Private Sub Form1_Load (sender As Object, e As EventArgs) Handles MyBase.Load
    For Each tb As TextBox In Controls.OfType(Of TextBox)
        AddHandler tb.KeyDown, AddressOf TbKeyDown
    Next
End Sub

Private Sub TbKeyDown (sender As Object, e As KeyEventArgs)
    Dim tb = CType(sender,  TextBox)
    If e.KeyCode = Keys.Delete Then
        tb.Clear()
    End If
End Sub