文本框只能输入整数

Question

大家好:

     弱弱的问一下,如何控制文本框只能输入数字，希望能给出代码。

 

（好长时间没有碰这个东西了，现在要用它执行一个存储过程，有几个文本框是整数参数。）

Answer 1

 

  Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case Asc("0") To Asc("9"), vbKeyBack
    Case Else
    KeyAscii = 0
    End Select
    End Sub

Answer 2

程序环境是:VB.net 2005 你上面的好像不行.

Answer 3

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        Select Case e.KeyCode
            Case Keys.D0 To Keys.D9, Keys.Back
            Case Else
                e.SuppressKeyPress = True
        End Select
    End Sub