如何使文本框的字数限制对中英文都适用.txt

来自「VB技巧问答10000例 VB技巧问答10000例」· 文本 代码 · 共 25 行

以 下 是 我 对 此 问 题 的 解 决 办 法 ， 由 于 时 间 仓 促 ， 不 是 很 完 善 : 
    Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) 
    Dim len1 As Integer 
    Dim ss As String 
    Dim i As Integer 
     
    i = 1 
     
    Do 
    ss = Mid$(Text1.Text, i, 1) 
    If ss < "Z" And ss > "a" Then 
     len1 = len1 + 1 
    Else 
     len1 = len1 + 2 
    End If 
    i = i + 1 
    If i > Len(Text1) Then 
     Exit Do 
    End If 
    Loop 
     
    If len1 > 20 Then MsgBox "No" 
    End Sub 
<END>