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