主题：以A开头的14位编码的验证

需求：机构编码是以A开头的14位数

validating:

Dim pattern As String =  "^A[0-9]{13}$"
Dim txt As String = e.Sender.Text
If txt > "" Then
    Dim rgx = new System.Text.RegularExpressions.Regex(pattern, System.Text.RegularExpressions.RegexOptions.IgnoreCase)
    If rgx.isMatch(txt) = False Then
        e.Sender.Error = "机构编码是以A开头的14位数!"
        e.cancel = True
    Else
        e.Sender.Error = ""
    End If
Else
    e.Sender.Error = ""
End If

keydown:

If e.KeyCode =Asc("A") OrElse e.KeyCode >= Asc("0") AndAlso e.keycode <= Asc("9") Then
    If e.sender.text.length > 13 Then
        e.cancel = True
    End If

ElseIf e.KeyCode <> Keys.back Then
    e.cancel = True

End If

老师，这个小写a也能输进去，还有就是应该只允许输入A和数字，，请老师帮忙改一下