ループを使用してピクチャボックスの配列を作成するにはどうすればよいですか？

Question

49個のPictureBoxを作成して、フォームに配置する必要があります。 私は

Public Class Form1 
    Dim grid() as PictureBox 
    Public Sub Form_Load() Handles Me.Load 
     For i = 0 to 48 
     grid(i) = New PictureBox 
     grid(i).Visible = True 
     Me.Controls.Add(grid(i)) 
     Next 
    End Sub 

デバッグコンソールのようなもので考えていたことは、ドンあなたなら、私にグリッド（I）=何も

Answer 1

Dim grid(0 to 48) As PictureBox 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
     For i = 0 To 48 
      grid(i) = New PictureBox 
      Me.Controls.Add(grid(i)) 
     Next 
    End Sub 

または

Dim grid(48) As PictureBox 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
      For i = 0 To 48 
       grid(i) = New PictureBox 
       Me.Controls.Add(grid(i)) 
      Next 
     End Sub 

または

Dim grid() As PictureBox 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
     redim grid(48) 
     For i = 0 To 48 
      grid(i) = New PictureBox 
      Me.Controls.Add(grid(i)) 
     Next 
    End Sub 

を伝えます李のようにあなたの配列をReDimしてリストを使用する必要があります。

Dim grid As List(of PictureBox) 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load 
      grid=new list(of picturebox) 
      For i = 0 To 48 
       grid.add(New PictureBox) 
       Me.Controls.Add(grid.item(grid.count-1)) 
      Next 
     End Sub