VB6 将文本框输入限制为从 1900 年到当前日期范围内的数字？

Question

如何将文本框输入限制为从 1900 年到当前日期范围内的数字？

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 

Answer 1

您需要将该代码放在 txtYear_Validate() 事件中，而不是 change 事件中。每次击键都会触发更改，因此几乎总是会立即失败。在验证事件完成之前不要验证条目。