Создайте тот же обработчик для всех элементов управления моей формы?

Question

Я пытаюсь добавить тот же обработчик ко всем моим элементам управления в моей форме. Вот мой код:

Sub CreateDelegates() 
    For Each Ctl In Me.Controls 
     AddHandler Ctl.MouseDown, AddressOf MainPictureBox_MouseDown 
    Next 
End Sub 

Проблема заключается в том, что MouseDown не распознается как событие Object. Любая идея о том, как это решить?

Спасибо

Answer 1

Попробуй так:

For Each Ctl As Control In Me.Controls 
    AddHandler Ctl.MouseDown, AddressOf MainPictureBox_MouseDown 
Next 

Если все эти элементы управления PictureBox, то это могло бы быть лучше, чтобы фильтровать их:

For Each Ctl As PictureBox In Me.Controls.OfType(Of PictureBox)() 
    AddHandler Ctl.MouseDown, AddressOf MainPictureBox_MouseDown 
Next