关于判断的一个小问题

Question

在text的LostFocus事件中
if textx.text="" then 
  msgbox "please input the content"
  textx.setfocus
end if

Answer 1

楼上兄弟说的那个方法我想到了，可是用在text的LostFocus事件有一点不方便的地方，就是每个text都要判断一次，而且当我把焦点停在一个text控件上的时候，如果我想把焦点移开马上就谈出一个对话框，很不方便。
请问各位大虾还有没有别的办法？
可不可以在输入完最后一个text信息再判断，如果其中有为空的text则谈出对话框？
麻烦各位。。
还是要谢谢towndream

Answer 2

比如说：
text1
text2
text3
从text1到text3输入信息，当text3输入完后做一个判断，如果其中一个或者其中几个text值为空时提示从新输入，如果不为空则在text4中显示“信息已输入”。

Answer 3

'使用控件数组 text1(0)  text1(1) text1(2)Dim blnFill(0 To 2) As BooleanPrivate Sub Command1_Click()
    If GetFillOk Then
        '这里写数据处理代码
        MsgBox "现在可以执行数据处理操作了"
    End If
End SubPrivate Sub Text1_LostFocus(Index As Integer)
    If Text1(Index).text <> "" Then blnFill(Index) = True
End SubPrivate Function GetFillOk() As Boolean
Dim i As Integer
For i = LBound(blnFill) To UBound(blnFill)
  If Not blnFill(i) Then
    MsgBox "你忘记了填了"
    Text1(i).SetFocus
    GetFillOk = False
    Exit Function
  End If
Next
GetFillOk = True
End Function