vb6 - VB6将文本框的输入限制为从1900到当前日期的数字？

如何将文本框的输入限制为从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

最佳答案

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

关于vb6 - VB6将文本框的输入限制为从1900到当前日期的数字？，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/50395233/