Question

我在让代码做我想做的事情时遇到了一些问题。

我想阻止用户在将文本输入文本时使用Enter按钮。我正在使用的代码是：

 Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If Asc(e.KeyChar) = 13 Then
        e.Handled = False
    Else
        e.Handled = True
        MsgBox("Error.")
    End If
End Sub

这没有实现我的目标。请问我该如何重写呢？

Answer 1

我同意Tim3880。您确实阻止用户使用键盘输入任何内容;除了输入值。你的代码没问题;只有错误的安排，朋友。

试试这个：

 Private Sub TextBox1_KeyPress(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If Asc(e.KeyChar) = 13 Then
        e.Handled = True
        MsgBox("Error.")
    Else
        e.Handled = False
    End If
End Sub

如何在vb.net中使用ASCII代码

1 个答案: