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
|