跪求用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

10多年的富陽網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營銷型網(wǎng)站的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整富陽建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)建站從事“富陽網(wǎng)站設(shè)計(jì)”,“富陽網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

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 事件中讀取,并對(duì)比是不是超時(shí),.

怎樣用vb.net作一個(gè)指針轉(zhuǎn)動(dòng)的鐘表?(可設(shè)置時(shí)間日期,有鬧鈴功能)

你需要會(huì)用GDI+,也就是那個(gè)System.Drawing命名空間下的類.

給你說個(gè)思路,設(shè)Timer,到時(shí)間就用Form.Invalidate()函數(shù)重畫窗口,在重畫窗口的Form_Paint事件下面編寫代碼得到當(dāng)前時(shí)間,再根據(jù)當(dāng)前時(shí)間用GDI+畫時(shí)鐘.

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

網(wǎng)站題目：vb.net制作鬧鐘 用vb制作鬧鐘
網(wǎng)頁鏈接：http://jinyejixie.com/article16/dossddg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制網(wǎng)站、品牌網(wǎng)站設(shè)計(jì)、網(wǎng)站排名、做網(wǎng)站、微信小程序、全網(wǎng)營銷推廣

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)