Laden von Bildern mit Code

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 

Hier ist mein Code, der nicht funktioniert. Was mache ich falsch?

Answer 1

Du Schleifen über alle in Me enthaltenen Controls (wahrscheinlich die Form)
In dieser Sammlung gibt es mehr als nur die PictureBox, so dass Sie nur filtern müssen diejenigen erhalten:
(siehe 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