Question

vb中如何判断Testbox中输入的值是什么类型

vb中如何判断Testbox中输入的值是什么类型,或者直接告诉我如何限制在testbox中只能输入正数,如果不是提示输入出错

Answer 1

通过对KeyPress得到的KeyAscii来判断就可以了，限制只能输入数字，而不能输入其它东西。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then KeyAscii = 0
End Sub

Answer 2

Private Sub Text1_Change()
Dim S as string
S=Text1.text
If Len(S)>0 Then
If Val(S)<=0 Then Msgbox "请输入一个正整数"
End If
End Sub

Answer 3

Private
Sub
Text1_Change()
Dim
S
as
string
S=Text1.text
If
Len(S)>0
Then
If
Val(S)<=0
Then
Msgbox
"请输入一个正整数"
End
If
End
Sub