WithEvents and Event method : Event « Event « VB.Net Tutorial

1. VB.Net Tutorial
2. Event
3. Event

Public Class Tester
    Shared Dim WithEvents Click3 As New TripleClicker

    Public Shared Sub Main
        Click3.Click()
        Click3.Click()

        Click3.Click()

    End Sub
    Private Shared Sub Click3_TplClick(ByVal Text As String) Handles Click3.TplClick
        Console.WriteLine(Text)
    End Sub
    
End Class

Public Class TripleClicker

    Public Event TplClick(ByVal Text As String)

    Public Sub Click()
        Static intCount As Integer = 0
        intCount += 1
        If intCount >= 3 Then
            intCount = 0
            RaiseEvent TplClick("The button was triple clicked.")
        End If
    End Sub
End Class

The button was triple clicked.

11.1.Event
	11.1.1.	Raise Events
	11.1.2.	Multiple Event Handler
	11.1.3.	Event handler
	11.1.4.	Subclass EventArgs to create your own event arguments
	11.1.5.	Inherit Event
	11.1.6.	Custom event handler
	11.1.7.	WithEvents and Event method
	11.1.8.	Add and remove event handler
	11.1.9.	Handle events from more than one components
	11.1.10.	Add, remove event handler to/from ToggleButton
	11.1.11.	Use one method to handle more than one RadioButton click event
	11.1.12.	Get event sender type
	11.1.13.	Instantiating the Action<(Of <(T>)>) delegate rather than explicitly defining a new delegate and assigning a named method