Question

这个VB代码怎么写？

在Text输入英文和数字，要符合条件，text后面的label会提示输入正确或者错误。请问一下这个程序代码怎么写？
注：帐号6-12位数（不分英文和数字） 密码：6-16位数（不分英文和数字）
是用到焦点失去的语句。。才会弹出label的答案

Answer 1

可以通过vb的新旧编码机制解决，具体代码如下：

需要：文本框和标签各一个
Private Sub Text1_Change()
ss = Text1.Text
s = StrConv(Text1.Text, vbFromUnicode) '将字符编码机制转换为旧的格式
If Len(ss) <> LenB(s) Then
Label1.Caption = "输入错误"
Else
Label1.Caption = "输入正确"
End If
End Sub

Answer 2

如果允许 -=+_~`:;,./'"\| 等等字符，顶楼正解！

Answer 3

怎么没有分呢？分加起。答案给