如何让文本框只接受数字？ 作者： 评价： 上站日期: 2001-09-01 内容说明： 来源： 　　使用如下代码，在文本框的按键事件中加入：　　Private 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 就不行了。

评论