Mega Code Archive

 

Categories / VB.Net Tutorial / Event

 

Multiple Event Handler

Module Module1     Class DailyJob         Public Event Coding(ByVal Item As String, ByVal StartTime As DateTime)         Public Event Testing(ByVal Item As String, ByVal StartTime As DateTime)         Public Event Meeting(ByVal Item As String, ByVal StartTime As DateTime)         Public Sub GenerateEvents()             RaiseEvent Coding("coding", Now())             RaiseEvent Testing("testing", Now().AddMinutes(5.0))             RaiseEvent Meeting("meeting", Now.AddMinutes(10.0))         End Sub     End Class     Dim WithEvents ThisDailyJob As New DailyJob()     Sub DoJob(ByVal Item As String, ByVal StartTime As DateTime)         Console.WriteLine("Starting " & Item & " at: " & StartTime)     End Sub     Sub Main()         AddHandler ThisDailyJob.Coding, AddressOf DoJob         AddHandler ThisDailyJob.Testing, AddressOf DoJob         AddHandler ThisDailyJob.Meeting, AddressOf DoJob         ThisDailyJob.GenerateEvents()     End Sub End Module Starting coding at: 11/05/2007 9:33:45 PM Starting testing at: 11/05/2007 9:38:45 PM Starting meeting at: 11/05/2007 9:43:45 PM