创建不止一种类型的 PictureBox 数组

Question

我正在尝试创建多个 PictureBox 数组。
我唯一知道的是，我可以使用在代码中创建的有限数量的数组。

Dim CustomImage() As PictureBox = New PictureBox() {Array1, Array2,..and so on}

但我要解释的是如何创建这样的数组？
在本例中，用户输入数字 6，显示 6 个图片框。

Dim ArrayNumber as Integer = 6

Dim CustomImage() As PictureBox = New PictureBox() {some code that creates 6 arrays}

Answer 1

只是样本：

Dim myPictBox As PictureBox()
Private Const maxPBCount = 10

Private Sub CreateSomePictureBox(ByVal Count As Int16)
    If Count > maxPBCount Then
        Exit Sub
    End If
    Dim myPictBoxLength As Integer = 0
    If myPictBox Is Nothing = False Then
        myPictBoxLength = myPictBox.Length
    End If

    Do While myPictBoxLength > Count
        myPictBox(myPictBoxLength - 1).Dispose()
        myPictBoxLength -= 1
    Loop
    If Count <= 0 Then
        myPictBox = Nothing
        Exit Sub
    End If
    ReDim Preserve myPictBox(Count - 1)
    'Arrange Position of PictureBox
    MsgBox(myPictBoxLength)
    Do While myPictBoxLength < Count
        myPictBox(myPictBoxLength) = New PictureBox
        myPictBox(myPictBoxLength).Height = 30 
        myPictBox(myPictBoxLength).Width = 30
        myPictBox(myPictBoxLength).Location = New Point(35 * myPictBoxLength, 30)
        Me.Controls.Add(myPictBox(myPictBoxLength))
        myPictBox(myPictBoxLength).BackColor = Color.Red
        myPictBox(myPictBoxLength).Show()
        myPictBoxLength += 1
    Loop
    'Create Sub Procedure to Arrange The Picture Box Created 
    'ArrangePB()
End Sub

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
    CreateSomePictureBox(6)
End Sub