在做机房合作的时候,很多东西都进行了“改革”,听二牛说输入的字符长度限制可以用正则表达式,当然限制字符长度不仅可以用这种方法来写,还有通过设置文本框属性等办法来解决。不过利用正则表达式,我还是没没想到。反正正则表达式都学过了,为什么不能拿过来用呢?让它和我原来的方法比试比试。
一、ascii码小试
之前的代码是利用ascii码来编写的:
'限制输入的字符长度为0-16之间
Private Sub txtcardno_LostFocus()
If Not Len(txtcardno) = 0 And Len(txtcardno) < 1 Or Len(txtcardno) > 16 Then
MsgBox "卡号由1-16个字母和数字组成"
txtcardno.SetFocus
txtcardno.SelLength = Len(txtcardno.Text)
End If
End Sub
这样的话,每个窗体的每个文本框都需要写一遍代码,重复,重复,一直重复着,如何把它们封装起来呢?到大神出场了........