怎样禁止一个文本框只能输入数字不能输入其他字符

使用keypress事件

用isnumber函数可以判断是不是数字

If KeyAscii <= 57 And KeyAscii >= 48 Then
Else
KeyAscii = 0
End If

竟然在首页！！！

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > Asc("9") Or KeyAscii <Asc("0") Then
KeyAscii = 0
End If
End Sub
//////////////////////////////////////////////
Text1里面只能输入数字了

Shutdown