求助关于VB的问题

来源:百度知道 编辑:UC知道 时间:2024/05/04 18:54:21
编程过程中,想使用户在一个Text中输入的是数字,输入其它的给出提示,怎么实现?

'放一个text1

Private Sub Text1_KeyPress(KeyAscii As Integer)
<br>If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then
<br> KeyAscii = 0
<br> MsgBox "请输入数字"
<br>End If
<br>End Sub

用正则表达式,判断输入的是不是数字