22+Windows+Form开发实例：日程提醒程序.pptVIP

分析：过程GetAlerts中为了避免反复提醒影响到用户其他工作，采用isDiff开关来保证只有新任务出现时才再次刷新提醒窗口内容。判断是否有新任务实际上就是将从数据库提取出来的任务与提醒窗口AlertForm已有的任务进行比对，如果发现有AlertForm窗口中所没有的任务则表示有新任务。 接下来，我们使用Timer组件TimerOnce来定时执行GetAlerts过程，该控件包含了分线程和计时执行的功能，可谓一举两得。这里为了减少程序CPU占用率，将Interval属性设置为10000，即10秒。 1 Private Sub TimerOnce_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerOnce.Tick 2 GetAlerts( ) 3 End Sub TimerOnce的启动操作是在窗体Load事件发生时进行的，代码如下。 1 Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 2 DataGridView1.AutoGenerateColumns = False 列表不自动产生列 3 RefreshList( ) 4 TimerOnce.Start( ) 启动检测 5 End Sub 注意，当程序退出时要停止Timer，这里我们将这步操作放到主窗体关闭时进行，代码如下。 1 Private Sub MainForm_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing 2 TimerOnce.Stop( ) 3 End Sub 实现提醒任务的显示 由于我们希望提醒窗口只有一个，如果有新的任务就体现到窗口的列表中，而不是新开一个窗口。所以我们用单例设计模式（Singleton）来实现这种效果。 单例窗体的实现需要以下两个步骤。 （1）屏蔽构造函数。这是防止他人使用构造函数实例化多个窗体对象的手段。我们将构造函数New访问修饰符降低到Private即可。 （2）提供自定义构造方法。强制使用者在应用该窗体时使用，并在方法中实现单例控制。注意代码中的Instance属性，只能通过该属性来获取窗体实例。 1 summary 2 提醒窗体 3 /summary 4 remarks/remarks 5 Public Class AlertForm 6 Dim task As TaskClass = New TaskClass() 7 Private Shared _Instance As AlertForm = Nothing 8 summary 9 窗体实例 10 /summary 11 remarks单例模式/remarks 12 Public Shared ReadOnly Property Instance() As AlertForm 13 Get 14 If _Instance Is Nothing Then 15 _Instance = New AlertForm() 16 End If 17 Return _Instance 18 End Get 19 End Property 20 summary 21 选择的任务 22 /summary 23 Private ReadOnly Property SelectedTask() As String 24 Get 25 If DataGridView1.SelectedRows.Count = 0 Then 26 Return String.Empty 27 Else 28 Return DataGridView1.SelectedRows(0).Cells(colID).Value.ToString( ) 29