如何在VB6中限制TextBox输入1900至当前年份的数字？

要实现这个需求，我们可以结合输入限制和范围验证两个环节，既保证用户只能输入数字，又能确保最终输入的年份落在指定区间内，同时优化用户输入体验。

先聊聊你提供的基础代码 #

你给出的Change事件代码能实现基本的验证逻辑，但存在一个小问题：当用户还在输入过程中（比如只输入了199），因为未达到完整年份的有效范围，会被直接清空，体验不够友好。先看这段代码：

Private Sub txtYear_Change()
    If Not IsNumeric(txtYear.Text) Then
        txtYear.Text = ""
    ElseIf txtYear.Text < 1900 Or txtYear.Text > Year(Date) Then
        txtYear.Text = ""
    End If
    Exit Sub
End Sub

优化后的友好实现方案 #

我们可以分三步来完善，让输入过程更顺畅：

1. 用KeyPress事件直接屏蔽非数字输入，从源头限制输入类型；
2. 用Change事件限制输入长度为4位（符合年份的位数特征）；
3. 在LostFocus事件中做范围验证，不符合时给出明确提示而非直接清空。

步骤1：只允许输入数字

Private Sub txtYear_KeyPress(KeyAscii As Integer)
    ' 仅允许输入数字（ASCII 48-57）和退格键（ASCII 8）
    If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then
        KeyAscii = 0 ' 屏蔽非合法输入
    End If
End Sub

步骤2：限制输入长度为4位

Private Sub txtYear_Change()
    ' 最多只能输入4位数字，避免无效的超长输入
    If Len(txtYear.Text) > 4 Then
        txtYear.Text = Left(txtYear.Text, 4)
        txtYear.SelStart = Len(txtYear.Text) ' 光标自动移到输入框末尾
    End If
End Sub

步骤3：验证年份范围并给出提示

Private Sub txtYear_LostFocus()
    Dim inputYear As Integer
    Dim currentYear As Integer
    
    currentYear = Year(Date)
    
    ' 先检查输入是否为空或非数字
    If txtYear.Text = "" Or Not IsNumeric(txtYear.Text) Then
        MsgBox "请输入有效的4位年份数字！", vbExclamation, "输入错误"
        txtYear.SetFocus
        Exit Sub
    End If
    
    inputYear = CInt(txtYear.Text)
    
    ' 验证年份是否在1900到当前年份之间
    If inputYear < 1900 Or inputYear > currentYear Then
        MsgBox "年份必须在1900到" & currentYear & "之间！", vbExclamation, "输入错误"
        txtYear.Text = ""
        txtYear.SetFocus
    End If
End Sub

把这三段代码组合起来，用户输入时只能敲数字、最多4位，离开输入框时会自动验证范围，体验会比直接清空的方式友好很多。

内容的提问来源于stack exchange，提问作者Qui-Gon Jinn