怎样让vb的textbox只能输入正整数

Question

我试了isnumeric函数，但只能限制是数字，不能限制正整数，不知有没有什么办法实现？

Answer 1

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
Dim re
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Global = True
re.Pattern = "^([1-9](\d+)?)?$"
If Not re.test(Text1.Text & Chr(KeyAscii)) Then
KeyAscii = 0
End If
End If
End Sub

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And (KeyAscii > Asc("9") Or KeyAscii < Asc("0")) Then KeyAscii = 0
End Sub

Answer 3

isnumeric和ABS函数共同使用。