限制文本框的输入（只输入数字）

文本框防止非法字符输入：

只输入整数：
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

原文转自：http://www.ltesting.net