Question

VB中怎么使用ASCII码控制文本框中只允许输入数字0~9？

建立个TEXT文本，在文本中只可以输数字。要求：点COMMAND1会进行判断（用IF判断）

Answer 1

其实可以边输入边判断的，按你说的方法：
Sub Command1_Click()
Dim l As Integer,i As Integer,tmp As Integer
l=Len(Text1.Text)
For i=1 To l
tmp=Asc(Mid(Text1.Text,i,1))
If tmp>Asc("9") Or tmp<Asc("0") Then Exit For
Next i
If i=l+1 Then
这里表示都是0至9的数字
Else
这里表示不是
End If
End Sub

Answer 2

'这个程序用不着Command来做判断 看这个程序 只需添加一个TextBox控件即可
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub