Feedback

VB - Das Klick-Event von Controls gemeinsam auffangen und zentral

Veröffentlicht von am 22.11.2007
(1 Bewertungen)
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
Abgelegt unter Control, Textbox, Button, Label.

1 Kommentare zum Snippet

dbl schrieb am 18.07.2008:
Und wofür?
 

Logge dich ein, um hier zu kommentieren!