如何将事件处理程序添加到 VB.NET 中动态创建的控件

Question

我在这个论坛和其他网站上搜索并看到了无数样本，但我仍然坚持这个问题;我想为动态创建的 PictureBox-es 添加一个单击处理程序，并在其上添加一个参数，以便我知道单击了哪个图片框）。

这是我当前的代码：

Public Class frmMbarimAbonimi
Private Sub frmMbarimAbonimi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'TODO: This line of code loads data into the 'FitnessdbDataSet.clients' table. You can move, or remove it, as needed.
    'Me.ClientsTableAdapter.Fill(Me.FitnessdbDataSet.clients)
    '===============
    Dim dt As DataTable = PaPaguar()
    Dim i As Integer = 0
    Dim gr(dt.Rows.Count) As GroupBox
    Dim pp(dt.Rows.Count) As PictureBox
    Dim lb(dt.Rows.Count) As Label

    For Each row As DataRow In dt.Rows
        gr(i) = New GroupBox
        gr(i).Width = 200
        gr(i).Height = 180
        pp(i) = New PictureBox
        pp(i).SizeMode = PictureBoxSizeMode.StretchImage
        lb(i) = New Label

        '-------------------------
        Try
            Using str As Stream = File.OpenRead("C:Fotot" + dt.Rows(i).Item("Foto"))
                pp(i).Image = Image.FromStream(str)
            End Using
            lb(i).Text = dt.Rows(i).Item("Emer")
        Catch ex As Exception
            MsgBox("Fotoja nuk mund te ngarkohet, ju lutem realizoheni nje foto tjeter!!!")
        End Try
        '-------------------------
        pp(i).Visible = True
        pp(i).Width = 200
        pp(i).Height = 150
        AddHandler pp(i).Click, AddressOf testini

        gr(i).Controls.Add(pp(i))
        lb(i).Visible = True
        lb(i).Width = 200
        lb(i).Height = 30
        lb(i).Left = pp(i).Left
        lb(i).Top = pp(i).Top + 150
        lb(i).BackColor = Color.WhiteSmoke
        lb(i).BringToFront()
        gr(i).Controls.Add(lb(i))
        flpanel.Controls.Add(gr(i))
        i = i + 1
    Next row
End Sub 
End Class

所以我试图使用 AddHandler pp（i）。单击，地址的testini，但显然这不允许我使用参数调用"testini"来识别单击了哪个图片框。

有人可以指出我正确的方向或给出一些建议吗？非常感谢。

Answer 1

您需要向创建的 PictureBox 添加一些内容以在事件处理程序中标识它们，因为您无法更改添加"参数"的 click 事件处理程序的签名

例如，可以设置 Name 属性

pp(i) = New GroupBox
pp(i).Name = "PictureBox" + i.ToString

然后，在事件处理程序中，您可以识别将发件人对象强制转换为图片框并获取 Name 属性的图片框。
请记住，发送方始终是触发事件的控件。在您的情况下，始终是您动态创建的图片框之一

Private Sub testini(sender As Object, e As System.EventArgs) 
     Dim pb As PictureBox = DirectCast(sender, PictureBox)
     Dim pbIdentity As String = pb.Name
     .....
End Sub