DataGridViewを張り付けたユーザーコントロールを配列化して合計数を計算したい

Question

Visual Basic 2019を使用して倉庫管理を作成中です。

複数倉庫の管理なので、倉庫単位で入力できるユーザーコントロールを作成してみました。

しかし、そのコントロールを複数張り付けたフォームで
倉庫全体の合計値を集計しようとしたところ
ユーザーコントロールの配列化する方法がわからず、困っています。

良い方法がございましたら、教えていただけますでしょうか？

よろしくお願いいたします。

Public Class 倉庫在庫登録画面
    Const _最大行数 As Integer = 3

    Sub 合計()
        Try
            Dim _R列 As Integer 'とりあえず R列のみ集計してみる
            Dim _R合計 As Integer = 0

            For Each c As 倉庫管理コントロール In Me.Controls ＜＝ここでエラーになってしまいます

                For i = 0 To c.データグリッド.Rows.Count - 1
                    If Not (i = _最大行数 - 1) Then
                        Dim d As Double
                        Dim _数値チェック As Boolean = Double.TryParse(c.データグリッド(_R列, i).Value, d)
                        If _数値チェック Then
                            _R合計 = _R合計 + c.データグリッド(_R列, i).Value
                        End If
                    End If
                Next
            Next

            nmb_1.Text = _R合計
        Catch ex As Exception

        End Try

    End Sub

    Private Sub 倉庫管理コントロール0_Validated(sender As Object, e As EventArgs) Handles 倉庫管理コントロール0.Validated
        合計()

    End Sub
End Class

Answer 1

Dim Controls = Me.Controls.OfType(Of 倉庫管理コントロール)

For Each c In Controls
    Debug.WriteLine(c.Name)
Next

このような形で型を指定して取り出すことができます。

また、合計を算出する必要があるのであれば、まず倉庫管理コントロール側でそのコントロールが保持するデータの合計を取得できるプロパティを用意して、そのプロパティを合計するのがいいのではないでしょうか。
また、計算時に数値かどうかのチェックを行っていますが、これらは入力させているコントロール側が責任を持つべきでコントロール側で実装すべきことなのではないかと思います。
(というか、コントロール内部でも合計を取っていそうなので、そこでも行っているのではないですか？)

例）コントロールにRSumという合計を返すプロパティを実装した場合

Dim Controls = Me.Controls.OfType(Of 倉庫管理コントロール)
Dim Rsum = Controls.Sum(Function(c) c.RSum)

みたいな感じで

Comments

[seesaajira-]

YAmaGNZさん、早速のご回答ありがとうございます。

頂いたコードで実行してみたところ
For Eachの中を通りません。

ちなみに倉庫管理コントロールの部分を,
フォームに存在するDateTimePickerに変えると
通ります。
ユーザーコントロールだと取り出す事ができないのでしょうか？

ご指摘の通り、数値チェックはユーザーコントロールで行った方が良いですね。
後、合計値をパラメータで持つのは、考えていませんでした。
その方がすっきりしそうですね。

[YAmaGNZ]

よくみたら、TabPage上にコントロールがあるのではないですか？
TabPage1.Controls.OfType(Of 倉庫管理コントロール)
という風にしてみてください。

[seesaajira-]

tabによく気が付きましたね。流石です！
私も自分で作っていて、存在を忘れていました。
ありがとうございます。

無事、集計できるようになりました。

Answer 2

Controls の要素を 倉庫管理コントロール にキャストできずにエラーになっているものと思われます。
いったん Control 型の変数に受けた後、TryCast でキャストできるかを検証するとよさそうです。

For Each c2 As Control In Me.Controls
    Dim c As 倉庫管理コントロール = TryCast(c2, 倉庫管理コントロール)
    If c IsNot Nothing Then
        ' 倉庫管理コントロールに対する処理をここで実施
    End If
Next

Comments

[seesaajira-]

algさん、早速のご回答ありがとうございます。

頂いたコードで実行してみたところ
If c IsNot Nothing Then
でNothingとなって、if文の中を通りませんでした。

ちなみに倉庫管理コントロールの部分を,
フォームに存在するDateTimePickerに変えても
Nothingとなってしまいます。

[seesaajira-]

原因が判明致しました。
For Each c2 As Control In Me.Controlsの
MeをTabPageに変更したところ
if文の中を通るようになりました。

私がタブコントロールにユーザーコントロールを
張り付けていたせいでした。
申し訳ございません。
またの機会がございましたら、ご回答宜しくお願い致します。