快捷搜索:  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文件的路径,然后单击开始,就可以轮回播放声音了,单击竣事按钮就可以竣事播放。

当然,本文只是讲述制作一个闹钟提醒法度榜样的关键部分的实现,要完成一个真正的提醒法度榜样,我们可以根据自己的必要,添加相宜的提醒触发前提,就可以做出一个真正个性化的闹钟提醒法度榜样了。

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: