VB.net中限制TextBox只能输入数字（小数、负数）

Private Sub TextBox1_KeyPress(ByVal sender As Object,ByVal e As System.Windows.Forms.KeyPressEventArgs)
                     Handles Textbox1.KeyPress,Textbox2.KeyPress,Textbox3.KeyPress
 

    '判断输入的是否是数字、小数点或“BackSpace”符号

    If Char.IsDigit(e.KeyChar) Or e.KeyChar = "." Or e.KeyChar = Chr(8) Then

         '判断输入的小数点是否唯一
          If e.KeyChar = "." And InStr(CType(sender,TextBox).Text,".") > 0 Then
               e.Handled = True
          Else
               e.Handled = False
          End If

     '判断输入的负号是否是在第一位
     ElseIf e.KeyChar = "-" And CType(sender,TextBox).Text = "" Then
          e.Handled = False
     Else
          e.Handled = True
     End If
End Sub

http://sheng.iteye.com/blog/720795

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!