Mega Code Archive

 

Categories / VB.Net Tutorial / Event

 

Inherit 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