コードで画像を読み込む

Question

Private Sub frmPegSolitaire_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    For Each pictire As PictureBox In Me.Controls 
     If Not pictire.Tag.Equals("n") Then 
      pictire.Image = Image.FromFile("peg.png") 
     End If 
    Next 
End Sub 

ここに私のコードは動作しません。私は間違って何をしていますか？

Answer 1

あなたがそれらの取得のみにフィルタリングする必要があるので、ちょうどPictureBoxes以上あり、そのコレクションで
Me（おそらくフォーム）に含まれるすべてのコントロール上をループしている：
は（OfTypeを参照してください）

Private Sub frmPegSolitaire_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    For Each pictire As PictureBox In Me.Controls.OfType(Of PictureBox) 
     If Not pictire.Tag.Equals("n") Then 
      pictire.Image = Image.FromFile("peg.png") 
     End If 
    Next 
End Sub