Question

vb.net 2010 中在form1中用动态数组的方法在form2生成了控件，如何在form2设置其单击事件？

form1中的生成控件的代码 For i = 0 To 8 '利用循环语句动态加入控件数组。 Dim FirstPictureBox As New PictureBox '定义文本框对象 form2.Controls.Add(FirstPictureBox) '将一个文本框控件加入到Form上 List.Add(FirstPictureBox) '将文本框控件加入到例表集合中 List.Item(i).height = 120 List.Item(i).width = 120 List.Item(i).top = 34 + Int(i / 9) * 127 '修改新加入控件在Form上的位置 List.Item(i).left = 71 + i * 127 FirstPictureBox.TabIndex = i '修改新加入控件的TabIndex值 List.Item(i).image() List.Item(i).BackgroundImageLayout = ImageLayout.Zoom List.Item(i).BackgroundImage = Image.FromFile(c & "00" & i & ".jpg") Next 如何来设置form2中生成的picturebox的单击事件？

Answer 1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim pb As New PictureBox pb.Name = "pb" pb.Visible = True Form2.Controls.Add(pb) AddHandler pb.Click, AddressOf pbClick End Sub Private Sub pbClick(ByVal sender As Object, ByVal e As System.EventArgs) MsgBox(True) End Sub 简单的写了代码，希望对你有所帮助