新手,请帮忙,菜鸟问题

Question

我想编写一个定时工作提醒器.就是说,设置一个工作名称,设置一个时间,系统到设置定的时间的时候.自动弹出消息框,提示工作的时间到了.请高手给点提示或是代码.谢谢了..新手,不知道从何下手,请大家给点提示...谢谢..

Answer 1

一个Timer就行了啊，比如每分钟（根据需要定）读一次当前时间，如果等于指定的时间就msgbox提示

Answer 2

使用一个TIMER控件，每隔一段时间就判断时间，使用Now函数来获得当先时间。

Answer 3

对 用TIMER控件就可满足要求了

Answer 4

Static Sub delayloop(delaytime)  '定义时间延迟过程
Dim a As Single
Const b = 24& * 60& * 60&   '一天中的秒数
a = Timer + delaytime
If a > b Then
a = a - b
Do While Timer > a   
Loop
End If
Do While Timer < a
Loop
End SubPrivate Sub Command1_Click()
Call delayloop(Text1.Text)
MsgBox "工作时间到“"End SubPrivate Sub Command2_Click()
End
End Sub
窗体添加两个按钮、一个文本框
调用时间延迟过程。。文本框输入你要延迟的秒数。。
可以添加功能。。

Answer 5

注：必须先在文本框输入你的时间，否则报错。。，又改了一下：
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入数字”"
Else
Call delayloop(Text1.Text)
MsgBox "工作时间到“"
End If
End Sub

Answer 6

使用一个TIMER控件，每隔一段时间就判断时间
时间一刀就通知。不到则把cpu的运行交给其他程序