הקוד המלא
Imports System.Windows.Forms Imports System.ComponentModel Imports EventScheduler Public Class Form1 Inherits System.Windows.Forms.Form Private Sub OnClose(ByVal sender As Object, ByVal e As EventArgs) MyBase.Close() End Sub Private Sub ScheduleCallBack(ByVal scheduleName As String) MessageBox.Show(("ScheduleCallBack called from " & scheduleName & " @ " & DateTime.Now.ToLongTimeString)) End Sub Private Sub ShowSchedules(ByVal sender As Object, ByVal e As EventArgs) SchedulerUI.ShowSchedules() End Sub Private Sub Test(ByVal sender As Object, ByVal e As EventArgs) MessageBox.Show("Test will now create all types of schedules and opens Schedules View") Dim schedule1 As Schedule = New IntervalSchedule("Test_Interval", DateTime.Now.AddMinutes(1), 45, TimeSpan.Zero, New TimeSpan(864000000000)) AddHandler schedule1.OnTrigger, New Invoke(AddressOf Me.ScheduleCallBack) Scheduler.AddSchedule(schedule1) schedule1 = New OneTimeSchedule("Test_Onetime", DateTime.Now.AddMinutes(1.5)) AddHandler schedule1.OnTrigger, New Invoke(AddressOf Me.ScheduleCallBack) Scheduler.AddSchedule(schedule1) schedule1 = New DailySchedule("Test_daily", DateTime.Now.AddMinutes(2)) AddHandler schedule1.OnTrigger, New Invoke(AddressOf Me.ScheduleCallBack) Scheduler.AddSchedule(schedule1) schedule1 = New WeeklySchedule("Test_weekly", DateTime.Now.AddMinutes(2.5)) AddHandler schedule1.OnTrigger, New Invoke(AddressOf Me.ScheduleCallBack) Scheduler.AddSchedule(schedule1) schedule1 = New MonthlySchedule("Test_monthly", DateTime.Now.AddMinutes(3)) AddHandler schedule1.OnTrigger, New Invoke(AddressOf Me.ScheduleCallBack) Scheduler.AddSchedule(schedule1) SchedulerUI.ShowSchedules() End Sub Public Sub New() Me.components = Nothing Me.InitializeComponent() End Sub Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Private components As System.ComponentModel.IContainer Friend WithEvents TestBtn As System.Windows.Forms.Button Friend WithEvents CloseBtn As System.Windows.Forms.Button Friend WithEvents button1 As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() Me.button1 = New Button Me.CloseBtn = New Button Me.TestBtn = New Button MyBase.SuspendLayout() Me.button1.Location = New Point(25, 8) Me.button1.Name = "button1" Me.button1.Size = New Size(168, 24) Me.button1.TabIndex = 0 Me.button1.Text = "Show Scheduler" AddHandler Me.button1.Click, New EventHandler(AddressOf Me.ShowSchedules) Me.CloseBtn.Location = New Point(53, 78) Me.CloseBtn.Name = "CloseBtn" Me.CloseBtn.Size = New Size(112, 22) Me.CloseBtn.TabIndex = 2 Me.CloseBtn.Text = "Close" AddHandler Me.CloseBtn.Click, New EventHandler(AddressOf Me.OnClose) Me.TestBtn.Location = New Point(25, 42) Me.TestBtn.Name = "TestBtn" Me.TestBtn.Size = New Size(168, 22) Me.TestBtn.TabIndex = 11 Me.TestBtn.Text = "Test Code" AddHandler Me.TestBtn.Click, New EventHandler(AddressOf Me.Test) Me.AutoScaleBaseSize = New Size(5, 13) MyBase.ClientSize = New Size(218, 109) MyBase.Controls.Add(Me.TestBtn) MyBase.Controls.Add(Me.CloseBtn) MyBase.Controls.Add(Me.button1) MyBase.Name = "SchedulerTest" Me.Text = "Testing Scheduler" MyBase.ResumeLayout(False) End Sub End Class
