我想实现闹钟功能

[louyp]

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

[SafeF8]

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

[tiaozaodejia]

timer控件啦！

[ryuginka]

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

[tiaozaodejia]

Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Timer1_Timer()

Timer1.Interval = 1000
If Str(Time) = "12:00:00" Then
APIBeep CLng(500), CLng(500)
End If

End Sub

[Baalwhat]

timer 可以实现

[lix110]

timer

[熊孩子开学喽]

使用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