用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

　　在调用的时候hModule参数必须为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 Integer = &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文件的路径，然后单击开始，就可以循环播放声音了，单击停止按钮就可以停止播放。

　　当然，本文只是讲述制作一个闹钟提醒程序的关键部分的实现，要完成一个真正的提醒程序，我们可以根据自己的需要，添加合适的提醒触发条件，就可以做出一个真正个性化的闹钟提醒程序了。

【责编:John】