我想实现闹钟功能

Question

可以手动指定什么时候提示，然后每天到这个时间就会提示。
请问vb中能实现吗？

Answer 1

http://computer.86114.com/prog/rjydt/rjydt-wlbc/html/59.htm

Answer 2

当然能实现了啊,在TIMER事件中判断嘛,你输入的参数时间.

Answer 3

Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As LongPrivate Sub Timer1_Timer()Timer1.Interval = 1000
If Str(Time) = "12:00:00" Then
   APIBeep CLng(500), CLng(500)
End IfEnd Sub

Answer 4

使用TIMER控件
Private Sub Timer1_Timer()
Dim H as long
Dim M as long
H=hour(now)
M=minute(now)
if h=11 and m=30 then
 　me.caption= "吃午饭的时候到啦！！开饭啦"
   beep　　
endif
End Sub