以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  限制输入  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184142)

--  作者:良才
--  发布时间:2022/11/25 10:35:00
--  限制输入

在文本框KeyPress

在文本框只能输入5个数字字符,前4位是年份,后1位必须是“1”或“2”,例如:20221,20222,20231,20232。

请老师指教,谢谢!

If Char.IsNumber(e.KeyChar) Then
    If e.sender.Text.Length > 4 Then
        e.cancel = True
    End If
ElseIf e.keychar = chr(keys.back) Then
ElseIf e.keychar = "1" OrElse e.keychar = "2" Then
    If e.sender.Text.Length < 4 Then
        e.cancel = True
    End If
Else
    e.Cancel = True
End If
[此贴子已经被作者于2022/11/25 10:36:08编辑过]

--  作者:有点蓝
--  发布时间:2022/11/25 10:57:00
--  
If Char.IsNumber(e.KeyChar) Then
    If e.sender.Text.Length > 4 Then
        e.cancel = True
    ElseIf e.sender.Text.Length = 4 Then
        If e.keychar = "1" OrElse e.keychar = "2" Then
        Else
            e.Cancel = True
        End If 
    End If
ElseIf e.keychar = chr(keys.back) Then
Else
    e.Cancel = True
End If

--  作者:良才
--  发布时间:2022/11/25 11:06:00
--  
谢谢