用VB编写日程提醒小程序
软件世界
相信很多人有这样的经历，由于太忙而经常忘记事情。我就是这样的人，有一次居然忘记陪GF去吃饭。事后就写了这个小程序提醒自己。现向大家介绍如下：
首先制作如(（图1）)所示的窗体。
Dim s As String
Private Sub Combo4_Change()
Label10.Caption = Combo4.Text
End Sub
Private Sub Command1_Click()
Label10.Caption = Combo4.Text
If Combo1.Text = "" Or Combo2.Text = "" Or Label10.Caption = "" Or Combo3.Text = "" Then
ret_val = MsgBox("请输入完整信息，不然我没法提醒你什么时候干什么。"， vbExclamation + vbOKOnly + vbSystemModal， "守时小助手")
If ret_val = 1 Then
Command4.Enabled = False
End If
Else
Label7.Caption = Combo1.Text & "点" & Combo2.Text & "分" & Combo3.Text & "秒"
s = Label10.Caption '把label10中的文字传到变量 s 中
ret_val = MsgBox("你确定的设置是正确的么？请注意时间制式为24小时制，时间设置不对，将无法及时提醒！"， vbExclamation + vbOKCancel + vbSystemModal， "守时小助手")
If ret_val = 2 Then
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = ""
Label10.Caption = ""
Label7.Caption = ""
Else
Command4.Enabled = True
Command2.Enabled = True
End If
End If
End Sub
Private Sub Command2_Click()
Combo1.Text = ""
Combo2.Text = ""
Combo3.Text = "00"
Label10.Caption = ""
Label7.Caption = ""
Command4.Enabled = False
End Sub
Private Sub Command3_Click()
Unload Me
End Sub
Private Sub Command4_Click()
Form1.Hide
End Sub
Private Sub Form_Load()
label1.caption="你输入的时间是："
label3.caption="点"
label4.caption="分"
label5.caption="秒"
label6.caption="输入提醒时间："
label8.caption="要我提醒你的事情："
command1.caption="确定"
command2.caption="取消"
command3.caption="退出"
command4.caption="隐藏窗口"
form1.caption="守时小助手1.01 小宝笨笨猪"
Timer1.Interval = 1000
Label2.Caption = Time
Label9.Caption = Date
Combo3.Text = "00"
Label10.Caption = ""
Command2.Enabled = False
End Sub
Private Sub Timer1_Timer()
Label9.Caption = Date
Label2.Caption = Time
If Time = Combo1.Text & ":" & Combo2.Text & ":" & Combo3.Text Then
msg = "你好！我要提醒你，" & "你告诉我：“" & s & "”"
Style = vbExclamation + vbOKOnly + vbSystemModal
Title = " 守时小助手提醒你了！"
ret_val = MsgBox(msg, Style, Title)
If ret_val = 1 Then
Form1.Show
End If
End If
End Sub
程序运行界面如(（图2）)，很简单易用吧。有了它，从此以后再不会误事。
