在Visual Basic.NET中禁用字母和特殊字符

Zuk*_*_y0 5 vb.net

我是视觉基础的新手,我不确定如何禁用字母和特殊字符.

我只希望用户能够输入数字.

我使用这个代码我知道有一个更简单的方法来做到这一点,所有的帮助表示赞赏

当我输入字母字符和输入数字时,我收到消息框.当我输入数字时,我不想得到消息框.

Private Sub txtCustom_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCustom.KeyDown

    If (e.KeyCode = Keys.Enter) Then

        e.SuppressKeyPress = True

        If (e.KeyCode = Keys.A Or Keys.B Or Keys.C Or Keys.D Or Keys.E Or Keys.F Or Keys.G Or Keys.H Or Keys.I Or Keys.J Or Keys.K Or Keys.L Or Keys.M Or Keys.N Or Keys.O Or Keys.P Or Keys.Q Or Keys.R Or Keys.S Or Keys.T Or Keys.U Or Keys.V Or Keys.W Or Keys.X Or Keys.Y Or Keys.Z) Then

            Beep()
            MsgBox("Please Input A Numerical Value")
            txtCustom.Text = ""

        Else

            RandNumAllow = txtCustom.Text

        End If

    End If

End Sub
Run Code Online (Sandbox Code Playgroud)

Lar*_*ech 8

请尝试使用KeyPress事件:

Private Sub TextBox1_KeyPress(sender As Object, _
                              e As KeyPressEventArgs) Handles TextBox1.KeyPress
  e.Handled = Not Char.IsNumber(e.KeyChar)
End Sub
Run Code Online (Sandbox Code Playgroud)

但这不会阻止某人使用剪贴板.最好使用MaskedTextBox控件.