none
文本框只能输入整数 RRS feed

  • 问题

  • 大家好:

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

     

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

    2008年8月11日 1:14

答案

  •  

      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
    2008年8月11日 2:00
    版主

全部回复

  •  

      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
    2008年8月11日 2:00
    版主
  • 程序环境是:VB.net 2005 你上面的好像不行.

    2008年8月15日 7:18
  • 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

     

    2008年8月15日 8:04
    版主