Question

我有textbox1。我需要在textbox1中按一些数字。

ex.press 1在textbox1中但textbox1中的值为2（非随机）。按1显示2 按2显示3 。

Answer 1

只需处理控件的KeyPress事件：

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

    Select Case e.KeyChar
        Case "1"
            TextBox1.AppendText("2")
        Case "2"
            TextBox1.AppendText("3")
    End Select

    e.Handled = True
End Sub

如果要将输入限制为JUST数字键盘（但不是数字行），请改为使用KeyDown事件：

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown

    Select e.KeyData
        Case Keys.NumPad1
            TextBox1.AppendText("2")
        Case Keys.NumPad2
            TextBox1.AppendText("3")
    End Select

    e.Handled = True
    e.SuppressKeyPress = True
End Sub

如何在textbox1中按1（小键盘）但在textbox1上显示2

1 个答案: