检查分组框内是否有多个控件类型为空并显示空控件的标签

Question

如前所述，我需要检查 groupbox 中的所有字段是否为空，然后显示一个消息框，显示空字段的标签。

问题是我在这个盒子上有多种类型的控件，包括：TextBox、NumericUpDown 和 DatePicker。

我想知道是否有比我在下面做的更简单的方法。

        If BenchQtyCombo.Text = 1 Then
            Dim B1emptyTextBoxes =
            From txt In Bench1_Combo.Controls.OfType(Of TextBox)()
            Where txt.Text.Length = 0
            Select txt.Tag

            Dim B1emptyNumericBox =
            From num In Bench1_Combo.Controls.OfType(Of NumericUpDown)()
            Where num.Value = 0
            Select num.Tag

            If B1emptyTextBoxes.Any Or B1emptyNumericBox.Any Then
                MessageBox.Show(String.Format("Please Complete the Following Required Fields:" & vbCrLf & vbCrLf & "{0}", String.Join(", ", B1emptyTextBoxes, B1emptyNumericBox)))

            End If
        End If

我也有B1emptyTextBoxes, B1emptyNumericBox的问题， B1emptyTextBoxes, B1emptyNumericBox在消息B1emptyTextBoxes, B1emptyNumericBox显示标签，因为我得到的是这个字符串而不是标签

我还没有包含 datepicker 的代码，它类似于Where DatePicker.Date > Today代码，直到我开始工作。

任何建议将不胜感激。

Answer 1

您正在加入 2 个列表以在MessageBox显示它们。 您需要单独加入这些列表的内容，然后加入这些字符串。

您的MessageBox字符串将需要：

String.Join(", ", String.Join(", ", B1emptyTextBoxes), String.Join(", ", B1emptyNumericBox))

Answer 2

首先，组框的文本属性永远不能等于 1。1 是数字类型。 通常文本属性包含一个字符串。

If GroupBox1.Text = "1" Then

接下来，.Tag 属性的数据类型为 Object。 你可以把任何你想要的东西扔进去。 但是，当您引用它时，您将获得一个对象。 当您在对象上调用 .ToString 时（这是您的 String.Format 正在执行的操作），您将获得对象的完全限定名称。

CStr() 将其改回基础类型 String。 如果在添加 CStr() 之前将光标悬停在 B1emptyTextBoxes 和 B1emptyNumericBox 上，您将看到数据类型是 Object 的 IEnumerable。 添加 CStr() 后，您将看到 IEnumerable 的字符串。

然后将 2 个 IEnumerables 与 Concat() 方法一起添加，Bob 是你的叔叔。

Private Sub OPCode()
    If GroupBox1.Text = "GroupBox1" Then
        Dim B1emptyTextBoxes = From txt In GroupBox1.Controls.OfType(Of TextBox)()
                               Where txt.Text.Length = 0
                               Select CStr(txt.Tag)

        Dim B1emptyNumericBox = From num In GroupBox1.Controls.OfType(Of NumericUpDown)()
                                Where num.Value = 0
                                Select CStr(num.Tag)


        If B1emptyTextBoxes.Any Or B1emptyNumericBox.Any Then
            Dim BothEnumerables = B1emptyTextBoxes.Select(Function(s) s).Concat(B1emptyNumericBox.Select(Function(s) s))
            MessageBox.Show(String.Format("Please Complete the Following Required Fields:" & vbCrLf & vbCrLf & "{0}", String.Join(", ", BothEnumerables)))
        End If
    End If
End Sub