如何处理来自控件数组的事件

Question

首先，大家好，我是stackoverflow的新手，也是编程新手(1ºyear)。我一直在搜索，但我没有找到任何东西，回答我的问题，或者也许我只是为了新手理解的答案，所以我很抱歉，如果它太简单，我看不到它!

我的母语不是英语*/

这是我的问题，我正在制作一个VB窗体白色的200个图片框，必须改变或交互点击

我已经做了一个控制数组的所有，像这样:

Dim control(199) As PictureBox = Controles(control, 0)

Function Controles(ByRef control As Array, ByVal cont As Integer)
    For Each pic As PictureBox In Me.Controls
        control(cont) = pic
        cont += 1
    Next
    Return control
End Function

这应该将每个图片框关联到一个数组位置，我现在的问题是如何设置事件处理程序来观看control()。点击，无论你点击哪个方框，onclick都会触发事件。

我知道的唯一方法是手动为每个框创建一个click处理程序。

希望我能找到一些答案

Answer 1

使用Addhandler语句可以将它们都连接到同一个例程。然后强制转换发送方对象，以便与单击的PB进行交互。减低函数。

Private Sub LoadME() Handles Me.Load
 For Each pb As PictureBox In Me.Controls.OfType(Of PictureBox)()
  'add all PB click events to a event sub
  AddHandler pb.Click, AddressOf pb_Click
 Next
End Sub
Private Sub pb_Click(sender As Object, e As EventArgs)
  Dim pb = DirectCast(sender, PictureBox)
  'this is the PB that was clicked
End Sub