Vb.net更改相應checkbox.checked = true的picturebox的背景顏色

Question

我有20個復選框，上面有20個圖片框。 我想更改那些相應復選框在表單加載中設置為checked = true的圖片框的背景顏色。

我用過代碼：

CheckBox1.CheckedChanged 
PictureBox1.BackColor = Color.brown

對於20個復選框，它將是冗長的過程是否有任何更短的解決方案，以便它只改變那些相應復選框被checked = true圖片框的顏色checked = true表格加載時checked = true

Answer 1

您只希望在表單加載中檢查它，使其更簡單..

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

    For i = 1 To 20
        Dim cbx As CheckBox = Me.Controls.Find("CheckBox" & i, True).FirstOrDefault
        Dim pbx As PictureBox = Me.Controls.Find("PictureBox" & i, True).FirstOrDefault
        If cbx.Checked = True Then
            pbx.BackColor = Color.Brown
        End If
    Next

End Sub