Feedback

Das Klick-Event von Controls gemeinsam auffangen und zentral

Sprache: VB

Das Klick-Event von Controls gemeinsam auffangen und zentral verarbeiten. Schnell und unkompliziert. Beispiel: InitClickHandler(TextBox1, Label1, Button1,…)
''' <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
''' <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

1 Kommentar