Inherit Event : Event « Event « VB.Net Tutorial

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

Module Module1

    Public Class DailyEvents
        Public Event Meeting(ByVal Item As String,ByVal StartTime As String)
        Public Event Coding(ByVal Item As String,ByVal StartTime As String)
        Public Event Testing(ByVal Item As String,ByVal StartTime As String)

        Public Sub GenerateEvents()
            RaiseEvent Meeting("A", "9:30AM")
            RaiseEvent Meeting("B", "11:30AM")
            RaiseEvent Meeting("C", "2:30PM")
            RaiseEvent Coding("D", "12:30PM")
            RaiseEvent Testing("E", "5:30PM")
        End Sub
    End Class

    Public Class TodaysActivities
        Inherits DailyEvents

        Public StartDay As DateTime
        Public EndDay As DateTime

        Public Sub New(ByVal StartDay As DateTime, ByVal EndDay As DateTime)
            MyBase.New()
            Me.StartDay = StartDay
            Me.EndDay = EndDay
        End Sub

    End Class

    Dim WithEvents Today As New TodaysActivities(Now(), Now.AddHours(8))

    Sub ScheduleHandler(ByVal Item As String,ByVal StartTime As String)
        Console.WriteLine(Item & " at: " & StartTime)
    End Sub

    Sub Main()
        AddHandler Today.Meeting, AddressOf ScheduleHandler
        AddHandler Today.Coding, AddressOf ScheduleHandler
        AddHandler Today.Testing, AddressOf ScheduleHandler

        Today.GenerateEvents()
    End Sub
End Module

A at: 9:30AM
B at: 11:30AM
C at: 2:30PM
D at: 12:30PM
E at: 5:30PM

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