VB6中如何实现TextBox控件仅允许输入最多3个数字或字符

方案1：属性直接设置（无需编码，仅限制长度场景首选） #

直接修改TextBox控件的MaxLength属性为3即可，这是VB6 TextBox原生支持的属性，设置后控件会自动拦截超出长度的输入，数字、字母等所有可输入内容都会被统一限制最多输入3个。

方案2：编码实现（支持额外输入内容校验） #

如果需要同时限制只能输入数字、字母，过滤特殊符号，或者需要处理粘贴等绕过原生属性的场景，可以通过事件编码实现：

• 首先在KeyPress事件中做实时输入拦截：

Private Sub Text1_KeyPress(KeyAscii As Integer)
    ' 长度限制：已输入3个字符时拦截所有输入，退格键除外
    If Len(Text1.Text) >= 3 And KeyAscii <> vbKeyBack Then
        KeyAscii = 0
        Exit Sub
    End If
    ' 内容校验：仅放行数字、大小写字母、退格键
    Select Case KeyAscii
        Case vbKeyBack, Asc("0") To Asc("9"), Asc("a") To Asc("z"), Asc("A") To Asc("Z")
        Case Else
            KeyAscii = 0
    End Select
End Sub

• 增加LostFocus兜底校验，避免粘贴等操作绕过实时拦截：

Private Sub Text1_LostFocus()
    Dim i As Integer
    Dim validStr As String
    ' 过滤非法字符+截断超长内容
    For i = 1 To Len(Text1.Text)
        Dim singleChar As String
        singleChar = Mid(Text1.Text, i, 1)
        If singleChar Like "[0-9a-zA-Z]" And Len(validStr) < 3 Then
            validStr = validStr & singleChar
        End If
    Next
    Text1.Text = validStr
End Sub

注意：如果仅需要限制输入长度，不需要过滤输入内容，直接使用方案1设置MaxLength属性即可，性能和稳定性都优于自定义编码。

内容的提问来源于stack exchange，提问作者Adnan Saeed Basalamah