1、数字键KeyAscii值：48-57
小数点KeyAscii值：46
退格键KeyAscii值：8
其他键的KeyAscii值，大家可以建立一个过程获得，而不用查表，简单可靠。
例1
Private Sub Text1_KeyPress(KeyAscii As Integer)
MsgBox KeyAscii
End if
2、限制文本输入，其实就是允许能输入的字符显示。实际操作中，我们把能输入的字符KeyAscii值加入判断语句，不能显示的字符KeyAscii值等于0即可。
例2，只能输入数字，小数点，退格键
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 And KeyAscii<>46 Then KeyAscii = 0
End Sub
****因百度文本编辑器问题，if语句由一行变成二行****
仔细观察代码，三种允许输入的字符，由二个And连接。
第一个And之前(KeyAscii < 48 Or KeyAscii > 57)表示允许输入数字0-9
第二个And之前KeyAscii <> 8，表示允许输入退格键
第二个And之后KeyAscii<>46 ，表示允许输入小数点
那么，我们允许输入其他字符，只需要将其KeyAscii值加入if语句。
3、关于限制文本框的粘贴，能搜索到的代码，有类模块，有API，这些方法因为使用环境，不能一概而论好坏，均有可用可取之处，我提一个简单的方法。
例3
Private Sub Text1_GotFocus()
Dim str As String str = "" Clipboard.SetText str
End Sub
当Text1获得焦点时，无论鼠标点击，还是使用Ctrl+V粘贴数据，剪贴板的文本数据同时清空，完美解决粘贴数据造成输入异常。
