VB.NET中怎么實(shí)現(xiàn)當(dāng)時(shí)間達(dá)到設(shè)定時(shí)間時(shí)響鈴？？急急急。。在線等！謝謝了，大神幫忙啊

首先在form1上建立三個(gè)命令按鈕,分別為command1(打開預(yù)啟動的文件);command2(設(shè)定時(shí)間的按鈕);第三個(gè)command3(即可啟動)按鈕可有可無;一個(gè)label1用來顯示你預(yù)打開的文件名的路徑；一個(gè)lbltime用來顯示現(xiàn)在的時(shí)間；還有一個(gè)commondialog,它在工程菜單的部件中，你可把它加到工具箱中再開始使用;關(guān)于對話框你不必自己建，只要從應(yīng)用程序向?qū)е刑砑蛹纯?一個(gè)timer,它的interval=500。 其次在form1的屬性中設(shè)置為:startupposition=2－centerscreen和maxbutton=false;label1的屬性中設(shè)置為：alignment=2－center。 外觀大致是如圖所示： 下面我們開始編程： OptionExplicit DimAlarmTime '申明變量 －－－－－－－－－ PrivateSubCommand1_Click() Calldialog '調(diào)用dialog子程序 EndSub －－－－－－－－ PrivateSubCommand2_Click() AlarmTime=InputBox(“請輸入你想設(shè)定的時(shí)間,例如(19:12:00)",“小鬧鐘") IfAlarmTime=“"ThenExitSub IfNotIsDate(AlarmTime)Then MsgBox“你所輸入的不是時(shí)間格式,請重試!",,“Wrong" Else AlarmTime=CDate(AlarmTime) EndIf '判斷輸入的是否可轉(zhuǎn)換成time格式 'isdate函數(shù)是判斷輸入的是否可轉(zhuǎn)換成date格式 EndSub －－－－－－－－－－－－－－ PrivateSubCommand3_Click() Calldeng '調(diào)用deng子程序 EndSub －－－－－－－－－－－－－－－ PrivateSubForm_Click() frmAbout.Show '顯示關(guān)于對話框 EndSub －－－－－－－－－－－－－ PrivateSubForm_Load() Command3.Enabled=0 AlarmTime=“" '初始化時(shí)command3為不可用的 EndSub －－－－－－－－－－－－－－－ PrivateSubForm_Resize() IfWindowState=1Then mintime else caption=“小鬧鐘" EndIf '如果窗口被最小化,則調(diào)用mintime程序 EndSub －－－－－－－－－－－－－－－ PrivateSubmintime() Caption=Format(Time,“l(fā)ongTime") '使用長時(shí)間格式來顯示時(shí)間 EndSub －－－－－－－－－－－－－－－ PrivateSubTimer1_Timer() IflblTime.CaptionCStr(Time)Then lblTime.Caption=Time EndIf '顯示時(shí)間每秒鐘的變化 IfTime=AlarmTimeThen Calldeng EndIf '判斷如果現(xiàn)在的時(shí)間超過了設(shè)定的時(shí)間,則調(diào)用deng子程序 IfWindowState=1Then IfMinute(CDate(Caption))Minute(Time)Then mintime EndIf EndIf '最小化時(shí)顯示時(shí)間每分鐘的變化 EndSub －－－－－－－－－－－－－ Subdialog() CommonDialog1.Flags=cdlCFBoth CommonDialog1.ShowOpen Label1.Caption=CommonDialog1.filename IfLabel1“"Then Command3.Enabled=－1 Else ExitSub EndIf '把打開的文件名給于label1 '如果label1不為空時(shí),則command3即可用 EndSub －－－－－－－－－－－－－－ Subdeng() Dimss ss=Shell(Label1.Caption,1) End '啟動指定的文件,并且結(jié)束小鬧鐘程序 EndSub 最后在about對話框中要提的是：在form_load中app.title表示你的應(yīng)用程序的名字；app.major、minor、revision是關(guān)于應(yīng)用程序的版本信息；lblDescription.Caption用于對本程序的一些說明描述之類的話；lblDisclaimer.Caption用于版權(quán)信息或警告等。 好了，至此我們已完成了一個(gè)簡單的VB程序的編寫，希望你能設(shè)計(jì)出更好的鬧鐘程序來！

發(fā)展壯大離不開廣大客戶長期以來的信賴與支持，我們將始終秉承“誠信為本、服務(wù)至上”的服務(wù)理念，堅(jiān)持“二合一”的優(yōu)良服務(wù)模式，真誠服務(wù)每家企業(yè)，認(rèn)真做好每個(gè)細(xì)節(jié)，不斷完善自我，成就企業(yè)，實(shí)現(xiàn)共贏。行業(yè)涉及成都被動防護(hù)網(wǎng)等，在成都網(wǎng)站建設(shè)、全網(wǎng)整合營銷推廣、WAP手機(jī)網(wǎng)站、VI設(shè)計(jì)、軟件開發(fā)等項(xiàng)目上具有豐富的設(shè)計(jì)經(jīng)驗(yàn)。

利用vb.net實(shí)現(xiàn)小鬧鐘功能

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

'時(shí)間格式要是這樣的16:00:00

'timer的interval要設(shè)成1

'你還可以自己細(xì)化

End Sub

跪求用vb.net做一個(gè)小鬧鐘??！

'加個(gè)定時(shí)器,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'聲音加個(gè) AxMMControl控件 AxMMControl1.DeviceType = "waveaudio" ''''''''定義播放*.wav格式 AxMMControl1.FileName = "c:\1.wav" ''''''''載入文件， AxMMControl1.Command = "open" ''''''''打開載入的文件

AxMMControl1.From = 0 '從頭開始

AxMMControl1.Command = "play"'保存時(shí)間,只要設(shè)定時(shí)把時(shí)間保存到文本文件就行,load 事件中讀取,并對比是不是超時(shí),.