VB怎么能Text1内只允许输入数字

Text1只允许输入数字 0 1 2 3 4 5 6 7 8 9 阿拉伯数字 不允许输入中文英文等等！

if not isnumeric(text1) and len(text1)<>0 then

msgbox "请输入数字"

end if

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then KeyAscii = 0 End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 58 Then '字符0~9的ASCII码为48~58 ,当不在当前数字字符0~9时ascii=0也 就是输入为空即输入进。 KeyAscii = 0 End If End Sub