Provides a value to use with events that do not have event data.
Assembly: mscorlib (in mscorlib.dll)
The following example shows a simple counting application that raises an event when a threshold is equaled or exceeded. The field is passed to the OnThresholdReached method.
Module Module1 Sub Main() Dim c As Counter = New Counter(New Random().Next(10)) AddHandler c.ThresholdReached, AddressOf c_ThresholdReached Console.WriteLine("press 'a' key to increase total") While Console.ReadKey(True).KeyChar = "a" Console.WriteLine("adding one") c.Add(1) End While End Sub Sub c_ThresholdReached(sender As Object, e As EventArgs) Console.WriteLine("The threshold was reached.") Environment.Exit(0) End Sub End Module Class Counter Private threshold As Integer Private total As Integer Public Sub New(passedThreshold As Integer) threshold = passedThreshold End Sub Public Sub Add(x As Integer) total = total + x If (total >= threshold) Then OnThresholdReached(EventArgs.Empty) End If End Sub Protected Overridable Sub OnThresholdReached(e As EventArgs) RaiseEvent ThresholdReached(Me, e) End Sub Public Event ThresholdReached As EventHandler End Class
Windows 8.1, Windows Server 2012 R2, Windows 8, Windows Server 2012, Windows 7, Windows Vista SP2, Windows Server 2008 (Server Core Role not supported), Windows Server 2008 R2 (Server Core Role supported with SP1 or later; Itanium not supported)
The .NET Framework does not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.