Question

怎么让vb2008的TextBox控件只能输入正整数??

Answer 1

可以使用正则表达式，比较方便。

追问

具体怎么操作呢?

Answer 2

Option Explicit

Private Sub Text1_Change()
Dim i As Integer, a As Integer
Dim c As String
Dim s As String

For i = 1 To Len(Text1)
c = Mid(Text1, i, 1)
a = Asc(c)
If a >= 97 And a <= 122 Then
s = s & c
ElseIf a >= 48 And a <= 57 Then
s = s & c
ElseIf a >= 65 And a <= 90 Then
s = s & c
End If

Next i
Text1 = s
End Sub