如何让文本框只接受数字？

　　如何让文本框只接受数字？
答：使用如下代码，在文本框的按键事件中加入：
** Sub Textl_KeyPress（KeyAscii As Integer）
If keyAscii>=33 Then
If KeyAscii<=vbkey9 And KeyAscii>=vbKey0 Then
Else 注释：把KeyAscii设为0就是取消输 入。
KeyAscii=0
MsgBox ”不要输入数字！”
End If
End If
End Sub
注意：KeyAscii键值与KeyCode 相同，我们可以查看KeyCode值，不 过有些KeyCode键值必须在 KeyDown和KeyUp中才有效，在 KeyPress的KeyAscii中没用。利用 KeyAscii=0的方式在KeyPress中有 用，但在KeyDown中让KeyCode=0 就不行了。
2