Обработка событий динамически созданных контролов

[GAGArin]

Код: Выделить всё

        For i = 0 To MapWidth - 1
            For j = 0 To MapHeight - 1
                MapPictureBoxes(i, j) = New PictureBox
                MapPictureBoxes(i, j).Width = polygonWidth
                MapPictureBoxes(i, j).Height = polygonHeight
                MapPictureBoxes(i, j).Left = 20 + polygonWidth * i
                MapPictureBoxes(i, j).Top = 20 + polygonHeight * j
                Me.Controls.Add(MapPictureBoxes(i, j))
                MapPictureBoxes(i, j).Image = someBitmap
            Next
        Next


Хочется теперь обработать событие например клика по каждой из картинок. В Vb.6 создавал такое в конструкторе, в поиске нашел вроде какие-то отсылки на мертвые темы, но без конкретного кода в MSDN не знаю где именно искать. Понимаю, что всё просто должно быть, напишите плиз кому не лень.

[viter.alex]

Ключевое слово AddHandler. Добавь такую процедуру

Код: Выделить всё

  Private Sub MapPictureBoxes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MsgBox("По мне кликнули!")
  End Sub

а в коде в цикле поставь

Код: Выделить всё

AddHandler MapPictureBoxes(i, j).Click, AddressOf  MapPictureBoxes_Click

[GAGArin]

Тоесть делаем процедуру (одну) и всем экземплярам элемента говорим, что вон там лежит обработчик клика на тебя. В итоге все они будут вызывать одну процедуру... В принципе вполне приемлимо, вот только как понять по кому кликнули? Потыкаться в студии не могу, чисто теоретически кажется, что надо пробежать по всему массиву контролов и посмотреть кто из них похож на "sender" так ли это?

[viter.alex]

Ты всё правильно понял. Зачем пробегать по всем контролам, если он уже передан в параметре sender? Нужно sender привести к нужному тебе типу и работать с ним.

Код: Выделить всё

  Private Sub MapPictureBoxes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Dim mypb As PictureBox
    Try
      mypb = DirectCast(sender, PictureBox)
      MsgBox(mypb.Location.ToString)
    Catch ex As Exception

    End Try
  End Sub

[GAGArin]

По массиву думал бегать, чтобы определить положение контрола именно в массиве, но данных о расположении на форме действительно в большинстве задач хватает. Спасибо.