学籍号,开头是:G或L,身份证号18位包含了X,字母转为大写。请老师指教,谢谢!
If Char.IsNumber(e.KeyChar) Then
If e.sender.text.length < 1 OrElse e.sender.Text.Length > 18 Then
e.cancel = True
End If
ElseIf e.keychar = "G" OrElse e.keychar = "L" Then
If e.sender.Text.Length >= 1 Then
e.cancel = True
End If
ElseIf e.keychar = chr(keys.back) Then
ElseIf e.keychar = "X" Then
If e.sender.Text.Length < 18 OrElse e.sender.text.length > 18 Then
e.cancel = True
End If
Else
e.Cancel = True
End If
[此贴子已经被作者于2020/3/8 13:48:22编辑过]