主题：联系方式设置

 

什么意思？没看懂你什么意思

就是text控件的属性里面输入控制中，控制字符长度，控制掩码这些使用的话就会出现跳行问题?

 

超过字符长度的时候，会跳转到下一个控件，这个是功能，不是bug。

明白了，谢谢谢谢谢谢

keydown代码：

 

If e.KeyCode >= Asc("0") AndAlso e.keycode <= Asc("9") Then 

    If e.sender.text.length > 10 Then  
        e.cancel = True
    End If
ElseIf e.KeyCode <> Keys.Back Then
    e.cancel = True
End If

 

代码思想：如果按键是0-9，则判断输入控件内容的长度是否超过10？（为啥不是11呀），则取消此次按键；

              如果按键不是回车键，则取消此次按键（老师，我不太懂这个else if的目的）；

 

validating代码:

 

Dim pattern As String = "^[0-9]{11}$"
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 = "联系方式是11位数!"
        e.cancel = True
    Else
        e.Sender.Error = ""
    End If
Else
    e.Sender.Error = ""
End If

 

代码思想：定义一正则表达式，获取输入的文本内容，如果文本不为空，则判断text是否符合正则表达式，如果不符合，则提示错误，取消此次按键 ，如果匹配，则取消此次按键（老师我不太这个else的目的）

 

 

老师，因为这两段验证代码特别重要， 但是我理解的不清楚， 麻烦老师 点拨一下

ElseIf e.KeyCode <> Keys.back Then 如果不是退格符就不允许输入

keydown代码：

 

If e.KeyCode >= Asc("0") AndAlso e.keycode <= Asc("9") Then 

    If e.sender.text.length > 10 Then  
        e.cancel = True
    End If
ElseIf e.KeyCode <> Keys.Back Then
    e.cancel = True
End If

 

代码思想：如果按键是0-9，则判断输入控件内容的长度是否超过10？（为啥不是11呀

keydown事件是在输入状态中，e.sender.text并不包含当前输入的字符

哦哦，所以，对于邮编就是5，最后一次输入的时候，keydown不统计它，只统计前十次，

If e.KeyCode >= Asc("0") AndAlso e.keycode <= Asc("9") Then
    If e.sender.text.length > 10 Then
        e.cancel = True
    End If
ElseIf e.KeyCode <> Keys.back Then ''输错回退情况
    e.cancel = True
End If

 

老师，这个else if 您说是不是没有必要啊？

 

16楼说错了