[VB .NET] Bind Event aan Alle PictureBox (Opgelost)

Private Sub ImageSelectDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Marg As New Padding
        Dim Loc As Point
        Dim Filename As String
        Loc.X = 10
        Loc.Y = 10

        For Each Filename In OptionsMainDialog.Filenames

            Dim PictureBox As New PictureBox
            PictureBox.Height = 100
            PictureBox.Width = 100
            Dim Extension As String = Path.GetExtension(Filename)
            If (Me.InArray(Me.ArrayPictureExtensions, Extension)) Then
                PictureBox.Location = Loc
                PictureBox.Image = Image.FromFile(Filename)
                PictureBox.Parent = Me
                PictureBox.CreateGraphics()
                PictureBox.Show()
                PictureBox.Enabled = True
                Loc.X += 110
                If (Loc.X > 700) Then
                    Loc.X = 10
                    Loc.Y += 110
                End If
            End If
        Next

    End Sub

Private Sub ImageSelectDialog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Dim Marg As New Padding
        Dim Loc As Point
        Dim Filename As String
        Loc.X = 10
        Loc.Y = 10
 
        For Each Filename In OptionsMainDialog.Filenames
 
            Dim PictureBox As New PictureBox
            PictureBox.Height = 100
            PictureBox.Width = 100
            Dim Extension As String = Path.GetExtension(Filename)
            If (Me.InArray(Me.ArrayPictureExtensions, Extension)) Then
                PictureBox.Location = Loc
                PictureBox.Image = Image.FromFile(Filename)
                PictureBox.Parent = Me
                PictureBox.CreateGraphics()
                PictureBox.Show()
                PictureBox.Enabled = True
                Loc.X += 110
                If (Loc.X > 700) Then
                    Loc.X = 10
                    Loc.Y += 110
                End If
            End If
        Next
 
    End Sub

Public Class Form1

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

        'Declareren variabelen
        Dim i As Integer
        Dim pic_box As PictureBox

        'Mini-loop om jouw voorbeeld te volgen
        For i = 0 To 1

            'Nieuwe PictureBix maken en de locatie voor de eerste instellen
            pic_box = New PictureBox
            pic_box.Location = New System.Drawing.Point(30, 30)

            'De loop gaat maar twee keer en de tweede keer zet hij een andere locatie
            'Ik weet het, dit is lelijke qua code maar het is om het duidelijk te maken
            If i = 1 Then
                pic_box.Location = New System.Drawing.Point(100, 30)
            End If

            'De grootte van de PictureBox instellen en de achtergrondkleur op zwart zetten
            'zodat je hem kan zien, aangezien ik er geen afbeelding aan geef
            pic_box.Size = New System.Drawing.Size(20, 20)
            pic_box.BackColor = Color.Black

            'Control toevoegen aan de Form
            Me.Controls.Add(pic_box)
            'Hier is het belangrijke stuk:
            'Een event toevoegen via de AddHandler
            'Het eerste is het type - event definieren, het zou bvb. ook een MouseHover kunnen zijn
            'Het tweede is de naam die je meegeeft, als er dan staat "Me.Blaat" moet het event Blaat noemen
            AddHandler pic_box.Click, AddressOf Me.Klik

        Next

    End Sub

    'Hier is het event dat je dan aanroept vanuit de PictureBox
    'In dit voorbeeld is het maar een HelloWorld MessageBox weergeeft
    Private Sub Klik(ByVal sender As Object, ByVal E As System.EventArgs)

        MessageBox.Show("Hello World")

    End Sub
End Class

Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Declareren variabelen
        Dim i As Integer
        Dim pic_box As PictureBox
 
        'Mini-loop om jouw voorbeeld te volgen
        For i = 0 To 1
 
            'Nieuwe PictureBix maken en de locatie voor de eerste instellen
            pic_box = New PictureBox
            pic_box.Location = New System.Drawing.Point(30, 30)
 
            'De loop gaat maar twee keer en de tweede keer zet hij een andere locatie
            'Ik weet het, dit is lelijke qua code maar het is om het duidelijk te maken
            If i = 1 Then
                pic_box.Location = New System.Drawing.Point(100, 30)
            End If
 
            'De grootte van de PictureBox instellen en de achtergrondkleur op zwart zetten
            'zodat je hem kan zien, aangezien ik er geen afbeelding aan geef
            pic_box.Size = New System.Drawing.Size(20, 20)
            pic_box.BackColor = Color.Black
 
            'Control toevoegen aan de Form
            Me.Controls.Add(pic_box)
            'Hier is het belangrijke stuk:
            'Een event toevoegen via de AddHandler
            'Het eerste is het type - event definieren, het zou bvb. ook een MouseHover kunnen zijn
            'Het tweede is de naam die je meegeeft, als er dan staat "Me.Blaat" moet het event Blaat noemen
            AddHandler pic_box.Click, AddressOf Me.Klik
 
        Next
 
    End Sub
 
    'Hier is het event dat je dan aanroept vanuit de PictureBox
    'In dit voorbeeld is het maar een HelloWorld MessageBox weergeeft
    Private Sub Klik(ByVal sender As Object, ByVal E As System.EventArgs)
 
        MessageBox.Show("Hello World")
 
    End Sub
End Class