很菜的问题，希望不要见笑！

[baobeizhu]

就是怎么控制一个文本框使它只能输入一个七位的（不能多也不能少，否则出现提示错误，要求错误）数字，谢谢指点。

[qqqdong]

在lostfocus中判断呀

[54017]

在事件中 if len(text1.text)<>7) then
msg("错误")
end if

[hhmmss]

你可以
Private Sub Text1_Change()
If Len(Trim(Text1.Text)) = 7 Then
Text1.Enabled = False
End If

当然最简单的方法是设计是
将text1的MaxLength =7