跪求用vb.net做一个小闹钟！！做一个小闹钟,1.显示当前的时间2.闹钟设置,到预定时间,播放音乐,3.若预定时间在重新打程序时,还没有过的话,可以继续,不用重新设定`~

Question

跪求用vb.net做一个小闹钟！！做一个小闹钟,1. 显示当前的时间2. 闹钟设置,到预定时间,播放音乐,3. 若预定时间在重新打程序时,还没有过的话,可以继续,不用重新设定`~

Answer 1

'加个定时器,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 "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 事件中读取,并对比是不是超时,.