0

約 50 個の Maskedtextbox がありますが、表示されるのはごくわずかです。私が必要としているのは、目に見えるものが空の場合にのみチェックすることです。

このコードを使用して、すべての Maskedtextboxes をチェックしました。

 Dim empty = TabLABOR.Controls.OfType(Of MaskedTextBox)().Where(Function(txt) txt.Text.Length = 0)
    If empty.Any Then
        MessageBox.Show(String.Format("Please fill all fields",
                        String.Join(",", empty.Select(Function(txt) txt.Name))))
    Else
        TabControlBlockD.SelectTab(TabMATERIALS)
    End If

End Sub
4

1 に答える 1

0

次のように for each を使用する必要があります

dim myfrm as MyCurrentForm()

それから

for Each item As System.Windows.Forms.Control In myfrm.Controls
        If item.GetType Is GetType(System.Windows.Forms.MaskedTexbox) Then
            For Each mboxes As MaskedTexbox In item.Controls
                If MaskedTexbox.text = "" AND maskedTextbox.visible = true Then
                  //Make deltu king of the world
                 End If
            Next
        End If
    Next

それはうまくいくはずです。

編集：

于 2012-10-09T14:32:42.757 に答える