如何使文本框的字数限制对中英文都适用
编号：QA003040
建立日期: 2000年6月15日 最后修改日期：2000年11月23日
所属类别：
马静:
操作系统：win98
编程工具：中文VB6
问题：在文本框中限制输入的最大长度为20,那么最多可以输入20个英文字母或20个汉字,但是我需要的是输入的是20个字符即20个英文字母或10个汉字,有没有什么简便的办法?
回答:
以下是我对此问题的解决办法，由于时间仓促，不是很完善:
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
WangXM的意见：
我对此问题的解决办法决如下:
'
Private Sub Text1_Change()
If not LenB(StrConv(Text1,bFromUnicode)) > 20 Then
msgbox "输入的内容过长。"
End Sub
相关问题：
QA001041 "如何统计中英文混排情形的字符数"
此问题由无翼回答。
| |
|
|
| |
|
|
