?
快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

永樂國際–永往直前樂在其中:用vb.net實現鬧鐘提醒程序

?

一個提醒法度榜樣,最范例的便是鬧鐘法度榜樣。網上有不少個性化的提醒法度榜樣下載,然則大年夜部分都因此光陰為主的鬧鐘提醒。我們也可以用vb.net來打造一個得當自己的提醒法度榜樣,比如監控一個某個利用法度榜樣的變更然后發生發火聲音提醒自己等等。

一個提醒法度榜樣,最緊張能在相符提醒前提的時刻發生發火聲音來提醒應用者,在這里,我們就對詳細的提醒前提煩瑣了,只針對若何實現提醒聲音的播放進行闡明。

在vb.net的。net組件中,并沒有供給播放聲音文件的組件,然則我們可以經由過程應用Com組件來播放聲音文件。然則,要留意的事,我們只必要發出提示的聲音而已,并不必要像播放器那樣播放不合款式的聲音文件和繁多的列表,以是我們可以經由過程API函數來輪回播放單個的聲音文件。

在WindowsAPI函數的有一個PlaySound函數,它用于播放WAV款式的聲音文件,我們可以用它來反復播放一個指定的WAV文件來實現提醒功能。

首先在vb.net中引入API聲明

Public Declare Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

然后定義幾個我們法度榜樣中必須用到的dwFlags參數常量

同步調用PlaySound中指定的文件,播放完WAV文件后才返回結果

Const SND_SYNC As 永樂國際–永往直前樂在其中Integer = &H0

異步調用PlaySound中指定的文件,不必等到播放完WAV文件后就直接返回結果,在這里我們可以調用異步措施來播放文件

Const SND_ASYNC As Integer = &H1

反復播放指定的WAV文件

Const SND_LOOP As Integer = &H8

在調用的時刻hM永樂國際–永往直前樂在其中odule參數必須為0

必要竣事的時刻經由過程調用PlaySound(vbNullString, 0, 0)來實現現在我們在窗體上放置兩個按鈕,一個用于開始播放,一個永樂國際–永往直前樂在其中用于竣事播放,然后再放置一個TextBox控件,用于指定WAV文件的路徑,界面如下圖所示:

圖一:示例界面

完備代碼如下:

Public Declare Function PlaySound Lib "winmm.dll" (ByVal lpszSoundName As String, ByVal hModule As Integer, ByVal dwFlags As Integer) As Integer

Const SND_FILENAME As In永樂國際–永往直前樂在其中teger = &H20000

Const SND_ALIAS As Integer = &H10000

Const SND_SYNC As Integer = &H0

Const SND_ASYNC As Integer = &H1

Const SND_LOOP As Integer = &H8

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

PlaySound(TextBox1.Text, 0, SND_LOOP Or SND_ASYNC)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

PlaySound(vbNullString, 0, 0)

End Sub

運行,永樂國際–永往直前樂在其中在TextBox1中輸入有效的WAV文件的路徑,然后單擊開始,就可以輪回播放聲音了,單擊竣事按鈕就可以竣事播放。

當然,本文只是講述制作一個鬧鐘提醒法度榜樣的關鍵部分的實現,要完成一個真正的提醒法度榜樣,我們可以根據自己的必要,添加相宜的提醒觸發前提,就可以做出一個真正個性化的鬧鐘提醒法度榜樣了。

免責聲明:以上內容源自網絡,版權歸原作者所有,如有侵犯您的原創版權請告知,我們將盡快刪除相關內容。

您可能還會對下面的文章感興趣:

快三平台开户