设置文本框的MaxLength属性 为14代码如下,你试试看:Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)Dim mstr As StringIf KeyCode = 8 Or KeyCode = 46 Then Exit Submstr = Text1.TextIf Len(mstr) = 2 Or Len(mstr) = 5 Or Len(mstr) = 8 Or Len(mstr) = 11 Then Text1.Text = Text1.Text & "*" Text1.SelStart = Len(Text1.Text)E...
private sub text1_onchange()if len(text1.text)>14 '10个字符+4个星号 then text1.text=left(text1.text,14)netstring=replace(text1.text,"*","")'
去掉加的星号while len(netstring)>2 then...