VB.NET需要使用MessageBox进行错误检查的指南

Question

可以说我有一个包含100个文本框，组合框和其他控件的表单，我想检查是否有任何控件为空。 当我单击“确定”按钮时，我希望消息框显示错误列表，例如Textbox1为空，Textbox30为空等。

我可以通过执行繁琐的方法来实现此目的，在该方法中，我检查了textbox1和messagebox，再次检查了textbox2和messagebox，依此类推。

我希望消息框仅显示一次。 我该如何实现？

我所做的是，我建立了一个数组并存储了所有错误消息，以供以后选择（例如Msgbox（errMessages（3）+ Environment.newline + errMessages（30））显示，我知道这不是正确的方法也要做到这一点。

请先谢谢你。

Answer 1

这是您问题的直接答案：

您可以将空控件存储在列表中，最后创建如下消息：

Dim empty_controls = New List(Of Control)

If TextBox1.Text = String.Empty Then
    empty_controls.Add(TextBox1)
End If

If TextBox2.Text = String.Empty Then
    empty_controls.Add(TextBox2)
End If

Dim result As String = String.Join(
    Environment.NewLine,
    empty_controls.Select(Function(c As Control) c.Name + " is empty"))

MessageBox.Show(result)

这是检测哪些文本框为空的更好方法：

Dim empty_controls = New List(Of Control)

//The following line will search through all text boxes on the form
empty_controls.AddRange(
    Controls.OfType(Of TextBox).Where(Function(c As Control) c.Text = String.Empty))

//Here you can add other kinds of controls with their own way of determining if they are empty

Dim result As String = String.Join(
    Environment.NewLine,
    empty_controls.Select(Function(c As Control) c.Name + " is empty"))

MessageBox.Show(result)