vb6 检查文本框是否为空

Question

有一个与此类似的问题，但它适用于 C#，Check if TextBox is empty and return MessageBox?。

还有另一种解决方案可以检查文本框是否为空https://www.daniweb.com/software-development/visual-basic-4-5-6/threads/414651/checking-if-textbox-is-empty，但如果您要检查表单中的所有文本框，则此方法有效。我想检查表单中的一些文本框是否为空。

我编写了这段代码来检查文本框是否为空

Private sub checkEmpty()
If text1.text = "" Or text2.text="" Then
blank = true
End If
End Sub

然后将此代码添加到我的命令按钮

Private Sub command1_Click()
checkEmpty
If blank = true Then
Msgbox "a text box is empty"
Else
Msgbox "Text box has text"
End If
End Sub

当我启动程序时，即使文本框中没有文本，它也会输出"Text box has text"。

这段代码有什么问题？

Answer 1

您需要将您的过程更改为一个返回值的函数（我会同时更改名称以使其更清楚它的作用）。

Private Function AnyTextBoxEmpty() As Boolean
  AnyTextBoxEmpty = text1.Text = "" or text2.Text = ""
End Function

Private Sub command1_Click()
  If AnyTextBoxEmpty Then
    Msgbox "a text box is empty"
  Else
    Msgbox "Text box has text"
  End If
End Sub