Question

VB中怎么实现光标离开Text控件时对其进行检测？

就像网页TEXT中的功能一样，TEXT1中我想输入身份证号，当我填写完毕后，再添别的选项（也就是当光标从Text1离开了），这个时候我想判断TEXT1中是否是18位的字符，怎么实现？

Answer 1

Private Sub Text1_LostFocus()
If Len(Text1.Text) <> 18 Then
MsgBox "身份证错误，不够18位"
End If
End Sub

Answer 2

if len(text1)<>18 then
msgbox"身份证错误，不够18位"
endif

Answer 3

if len(text1.text)<>18 then
msgbox"身份证错误，不够18位"
end if