利用vb.net实现小闹钟功能

制作可以实现“计划任务管理器”功能的应用程序。当到达指定时间时 ，程序能够自动出现提示信息和播放背景音乐。

Private Declare Function mciSendStringA Lib "winmm.dll" _
(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

Function PlayMidiFile(ByVal MusicFile As String) As Boolean
If System.IO.File.Exists(MusicFile) Then
mciSendStringA("stop music", "", 0, 0)
mciSendStringA("close music", "", 0, 0)
mciSendStringA("open " & MusicFile & " alias music", "", 0, 0)
PlayMidiFile = mciSendStringA("play music", "", 0, 0) = 0
End If
End Function

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TextBox1.Text = TimeOfDay Then
'具体提醒的东西，如你说的播放音乐
PlayMidiFile("自己添加路径")
End If
'时间格式要是这样的16:00:00
'timer的interval要设成1
'你还可以自己细化
End Sub

'加个定时器,textbox ,button,label

 private sub timer1_tick(byval sender as system.object, byval e as system.eventargs) handles timer1.tick     label1.text = now     if ff <= now and ff > "2001-1-1" and timer1.tag = "" then     timer1.tag = "1"     msgbox("ff")     end if     end sub

    private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click     ff = textbox1.text     timer1.tag = ""     end sub

    private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load     ff = "2001-1-1"     end sub

'声音加个 axmmcontrol控件

  axmmcontrol1.devicetype = "waveaudio" ''''''''定义播放*.wav格式

    axmmcontrol1.filename = "c:\1.wav" ''''''''载入文件，

    axmmcontrol1.command = "open" ''''''''打开载入的文件     axmmcontrol1.from = 0  '从头开始     axmmcontrol1.command = "play"

'保存时间,只要设定时把时间保存到文本文件就行,load 事件中读取,并对比是不是超时,.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息