怎么使用VB编一个时钟啊？到了某个时刻会弹出对话框的

来源：百度知道 编辑：UC知道 时间：2024/05/17 03:20:23
我看我们计算机老师用电脑连接投影仪上课的时候会使用一个时钟，到点了就会弹出一个对话框进行提示，老师说这个时钟是他用VB编写的，我想知道怎么编写。我是菜鸟，请各位高手说得明白点。最好能给我一个源代码，在此谢谢各位大虾了。
本人还没接触太多的编程知识，所以请各位高手把术语解释一下^-^

那我就给你演示个代表性的小程序 前提: 在窗体上花一个textbox timer commandButton 三个控件

Option Explicit
Dim alarmtime As Date '定义一个时间变量

Private Sub Command1_Click()

If IsDate(Text1.Text) = False Then''''文本筐内输入的是否符合格时间格式''''

MsgBox "错误的时间设置"
Else
alarmtime = CDate(Text1.Text) '''将文本筐内的函数转换为可以比较的时间函数'''''
If Time < alarmtime Then
Timer1.Enabled = True
Timer1.Interval = 10000
Command1.Enabled = False
Form1.Caption = "开始"
Else
MsgBox "时间已经过了"
End If
End If

End Sub

''''' 判断时间是否已经到了，如果到了就提示
Private Sub Timer1_Timer()