初学者的问题谢谢各位的帮助。。。。

Question

是这样的
编写一个窗体程序，窗体中有一个文本框，要求文本框输入的字符串的长度必需是6，否则焦点不能离开文本框。 
我在Form_Load里用了if Text1.MaxLength <> 6 then text1.SetFocus
可是不行啊，谁帮帮我谢谢

Answer 1

'当控件失去焦点时会产生一个事件
Private Sub Text1_LostFocus() '当失去焦点时
    If Len(Text1) <> 6 Then Text1.SetFocus '重新获得焦点
End Sub

Answer 2

Private Sub Text1_Validate(Cancel As Boolean)
If Len(Text1.Text) <> 6 Then
    Cancel = True
End If
End Sub