如何在控件失去焦点前检测控件的值为非法值时，不失去焦点？用什么方法程序？谢先！

输入值后再检测，如果为非法，再使焦点回到本控件

Private Sub Text1_LostFocus()
If Text1.Text <> "aaa" Then
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
End If
End Sub

把楼上的代码中的 If Text1.Text &lt;&gt; "aaa" Then 改成 If Not IsNumeric(Text1.Text) Then 就可以判断输入值是否为数字