LabelなどのUI手動生成時に、コード内で関連付けが出来ていない

Question

前提・実現したいこと

数が変動する設定項目（Label/TextBox/Button)を作るため、
手動によるLabel・TextBoxの生成を行う処理を作っています。

対応するボタンを押した際に、対応するTextBoxの値を読み込もうとしていますが、System.NullReferenceExceptionが発生しています。

初期化をしているはずなのですが、System.NullReferenceExceptionがなぜ出るのか分からなく、困っています。よろしくお願いいたします。

発生している問題・エラーメッセージ

System.NullReferenceException

該当のソースコード

    private DMaxNum As Integer = 200
    private DLabel(DMaxNum) As System.Windows.Forms.Label
    private DText(DMaxNum) As System.Windows.Forms.TextBox
    Private DWBtn(DMaxNum) As System.Windows.Forms.Button
    Private DRBtn(DMaxNum) As System.Windows.Forms.Button
    Private Const TextAStart As Integer = 232 'テキストBoxのスタート位置.　　
　　Private Const BtnAllStart As Integer = 482

    Private Sub plcForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        'UI初期化
        InitControl()

    End Sub

  ''' <summary>
  ''' UI関係の初期化
  ''' </summary>
  Private Sub InitControl()
        Dim i As Integer
        Dim Num As Integer = 0
        Dim i As IpArea_X = BtnAllStart 

        For i = 1 To DMaxNum
            DLabel(i) = New System.Windows.Forms.Label
            DText(i) = New System.Windows.Forms.TextBox

            DLabel(i).Name = "lbl" & eName
            DLabel(i).Text = "D" & CInt(1000 + i)
            DLabel(i).Location = New Point(sx + Num * IpArea_X, sy + YIdx * Yohaku)
            DLabel(i).Size = New System.Drawing.Size(230, 18)
            DLabel(i).Text = String.Format("DM{0} {1}", CInt(i), eName)

            DText(i).Name = "txtD" & eName
            DText(i).Location = New Point(sx + TextAStart + Num * IpArea_X, sy + YIdx * Yohaku)
            DText(i).Size = New System.Drawing.Size(100, 18)

            DWBtn(i) = New System.Windows.Forms.Button
            DRBtn(i) = New System.Windows.Forms.Button

            DWBtn(i).Name = "BtnDW" & eName
            DWBtn(i).Text = "書込"
            DWBtn(i).Location = New Point(sx + BtnAStart + Num * IpArea_X, sy + YIdx * Yohaku)
            DWBtn(i).Size = New System.Drawing.Size(50, 20)
            DRBtn(i).Name = "BtnDR" & eName
            DRBtn(i).Text = "読込"
            DRBtn(i).Location = New Point(sx + BtnRStart + Num * IpArea_X, sy + YIdx * Yohaku)
            DRBtn(i).Size = New System.Drawing.Size(50, 20)

            'フォームへのコントロール追加
            Me.Controls.Add(DLabel(i))
            Me.Controls.Add(DText(i))
            Me.Controls.Add(DWBtn(i))
            Me.Controls.Add(DRBtn(i))

            AddHandler DWBtn(i).Click, AddressOf Me.OnWButton
            AddHandler DRBtn(i).Click, AddressOf Me.OnRButton
        Next
  End Sub

    ''' <summary>
    ''' Dataの書き込み
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub OnWButton(ByVal sender As System.Object, ByVal e As EventArgs)
        '対象ボタンの選出
        Dim idx As Integer = 0
        Dim i As Integer

        Dim btn As Button = CType(sender, Button)
        Dim setAddres As String = btn.Name.Substring(6)
        Dim strValue As String = ""

        For i = 0 To DMaxNum
            If DLabel(i).Name = "lbl" & setAddres Then 'ここでSystem.NullReferenceException
                idx = i
                strValue = DText(idx).Text '値を入れる
                Exit For
            End If
        Next
    End Sub

試したこと

１）デバッカにてウォッチ追加
DLabelを設定し確認したが、ウォッチの方の値には入っている。

補足情報（FW/ツールのバージョンなど）

OS:Windows10
開発環境:Visual Studio2017 / .NET4.0

Comments

[Zuishin]

> For i = 1 To DMaxNum

> For i = 0 To DmMaxNum

[退会済みユーザー]

提示されたソースには、宣言されていない変数が含まれています。
抜粋でなく全ソースを提示してください。

[TEC_S]

すみません。ありがとうございます(;'∀')

[Zuishin]

修正されたのを見ても結局 DmMaxNum がどこにも宣言されていないので動くはずがないんですが。次回質問する時にはコピペしましょう。違うコードには違うバグが入るので、質問者と回答者で同じものを見ないと意味がありません。

[TEC_S]

ご指摘、ごもっともです。
次回質問するときは、コピペにて対応をしたいと思います。
ありがとうございました。

Answer 1

修正依頼より、解決しました。
ありがとうございました。

    ''' <summary>
    ''' Dataの書き込み
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub OnWButton(ByVal sender As System.Object, ByVal e As EventArgs)
        '対象ボタンの選出
        Dim idx As Integer = 0
        Dim i As Integer

        Dim btn As Button = CType(sender, Button)
        Dim setAddres As String = btn.Name.Substring(6)
        Dim strValue As String = ""

        For i = 1 To DMaxNum
            If DLabel(i).Name = "lbl" & setAddres Then 'ここでSystem.NullReferenceException
                idx = i
                strValue = DText(idx).Text '値を入れる
                Exit For
            End If
        Next
    End Sub