C# と VB.NET の質問掲示板

始めてお世話になります。

環境はVisual Studio 2013、言語はVB2013です。

form上にTextBox1〜TextBox4とCheckBox1〜CheckBox4を配置して、
TextBox1に入力した文字列をTextBox2〜TextBox4に反映し、
CheckBox1のチェック状態をCheckBox2〜CheckBox4に反映したいのですが、

Form上に直接配置したTextBox、CheckBoxの場合は以下の記述で動作しましたが、TabControl上に配置した場合には
”NullReferenceExceptionはハンドルされませんでした”というエラーとなり実行できませんでした。

いろいろ調べてみたのですが私の実力では対処法が判らず困っています。
具体的のどのように記述したらよいのでしょうか？
ご教示よろしくお願いいたします。


Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged

	Dim i As Integer
	Dim Cname As String

	For i = 2 To 4
	    Cname = "CheckBox" & i.ToString
	    CType(Me.Controls(Cname), System.Windows.Forms.CheckBox).Checked = CheckBox1.CheckState
	Next

End Sub


Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

	Dim i As Integer
	Dim Cname As String

	For i = 2 To 4
	    Cname = "TextBox" & i.ToString
	    CType(Me.Controls(Cname), System.Windows.Forms.TextBox).Text = TextBox1.Text
	Next

End Sub

■No78691 (ジャジャ さん) に返信

Controls.Findに頼るのも変な挙動をまねきかねないので
コントロールを配列化するなどして制御するコントロールを確実にした方がよいです。

Public Class Form1
    Private _TextBoxes() As TextBox
    Private _CheckBoxes() As CheckBox

    Public Sub New()
        ' この呼び出しはデザイナーで必要です。
        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。
        _TextBoxes = {TextBox2, TextBox3, TextBox4}
        _CheckBoxes = {CheckBox2, CheckBox3, CheckBox4}
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As System.EventArgs) Handles TextBox1.TextChanged
        For Each txt In _TextBoxes
            txt.Text = TextBox1.Text
        Next
    End Sub

    Private Sub CheckBox1_CheckedChanged(sender As Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        For Each chk In _CheckBoxes
            chk.Checked = CheckBox1.Checked
        Next
    End Sub
End Class