Das Klick-Event von Controls gemeinsam auffangen und zentral

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

''' <summary>
        ''' Übergebene Controls mit dem Klick-Event verbinden
        ''' </summary>
        ''' <param name="Ctrls"></param>
        ''' <remarks></remarks>
        Private Sub InitClickHandler(ByVal ParamArray Ctrls() As Control)
            For Each Ctrl As Control In Ctrls
                AddHandler Ctrl.Click, AddressOf ClickEvents
            Next
        End Sub
        ''' <summary>
        ''' Klick-Event der Controls auffangen und verarbeiten
        ''' </summary>
        ''' <param name="sender"></param>
        ''' <param name="e"></param>
        ''' <remarks></remarks>
        Private Sub ClickEvents(ByVal sender As Object, ByVal e As System.EventArgs)
            '   ToDo  Auswertung und Klick-Aktion ausführen
            'If sender Is TextBox1 Then

            'End If
        End Sub