限制文本框的输入(只输入数字)

2010-08-28 10:44:50来源:西部e网作者:

  在.net里面可以用简单的代码,就能够限制文本框的输入(只能够输入数字),我们可限制只输入整数、只能输入小数等。以下为代码示范:

  只输入整数:


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

  只输入小数:


  Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  Case Asc("0") To Asc("9"), vbKeyBack
  'nop

  case Asc(".")'允许一个小数点
  If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0

  Case Else
  KeyAscii = 0

  End Select
  End Sub

 

关键词:文本框