[VB.NET] PictureBox met Event 'at runtime' toevoegen

[Swerfer]

In onderstaande code wordt er een menu item toegevoegd en de daarbij horende event.

Visual Basic .NET:

Dim mainMenu1 As New MainMenu()
mainMenu1.MenuItems.Add("&File")
mainMenu1.MenuItems.Add("&Edit", New EventHandler(AddressOf Edit_Click))
Me.Menu = mainMenu1

Hoe kan ik ditzelfde bereiken, maar dan voor een picturebox in een panel?

Onderstaande code werkt in ieder geval niet:

Visual Basic .NET:

Dim PictureBox1 = New PictureBox
PictureBox1.Location = New Drawing.Point(0, 0)
PictureBox1.Size = New Drawing.Size(160, 120)
Panel1.Controls.Add(PictureBox1 , New EventHandler(AddressOf PictureBox_Click))

[gorgi_19]

Addhandler PictureBox.Click, addressof PictureBox_Click

Waarbij je dan zelf mag uitzoeken wat het clickevent is van een Picturebox, aangezien ik me nooit verdiept hebt in deze control.

[Swerfer]

gorgi_19 schreef op 31 december 2003 @ 16:36:
Addhandler PictureBox.Click, addressof PictureBox_Click

Waarbij je dan zelf mag uitzoeken wat het clickevent is van een Picturebox, aangezien ik me nooit verdiept hebt in deze control.

Visual Basic .NET:

Addhandler PictureBox1.Click, addressof PictureBox_Click

Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    If sender Is Picturebox1 then
        ....
    End If
End Sub

Bedankt.

[gorgi_19]

Wat is het nut van:

Visual Basic .NET:

 If sender Is Picturebox1 then
        ....
    End If

[whoami]

Misschien hangt ie hetzelfde event wel aan meerdere pictureboxen.

[gorgi_19]

whoami schreef op 31 december 2003 @ 17:50:
Misschien hangt ie hetzelfde event wel aan meerdere pictureboxen.

Dan blijf ik het ranzig vinden en krijg je een enorme bende if-constructies. Dan kan je imho beter een region specificeren en verschilldende methods aanmaken.

[Swerfer]

Ik heb meerdere pictureboxen die naar dezelfde event verwijzen. Zo kan ik erachter komen welke picturebox het is geweest...

Maar ik heb al een andere methode om erachter te komen welke picturebox de event heeft getriggerd.

Visual Basic .NET:

Sub PictureBox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Select Case sender.tag
        Case 1
            ....
        Case X
            ....
    End Select
End Sub

Ik heb dus elke picturebox een ID meegegeven in de Tag property.