Question

VB中怎么判断Text输入的字数

怎么让Text1输入4个数字或文字时执行其它命令

Answer 1

If Not IsNumeric(Text1.Value) Then '不是数值
If Len(Text1.Value)=4 Then
//////是4个字符的操作
End If
Else
If Len(Text1.Vaue)=4
/////是4个数值的操作
End If

End If

Answer 2

Private Sub Text1_Change()
If Len(Text1) = 4 Then
'这里就算写你要执行的命令吧
End If
End Sub

Answer 3

if len(Text1.text)=4 then 执行命令