关于textbox的一个小问题

Question

怎样限制输入textbox的内容呢比如限制只能输入最多5位数字 并且范围在1-5万  符号 英文之类的不让输入

Answer 1

maxlenth  设5限制只能输入最多5位数字

Answer 2

Private Sub Form_Load()
    Me.Text1.MaxLength = 5
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        KeyAscii = 0
    End If
End Sub