在向大家详细介绍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文件的路径，然后单击开始，就可以循环播放声音了，单击停止按钮就可以停止播放。
当然，本文只是讲述VB.NET程序制作一个闹钟提醒程序的关键部分的实现，要完成一个真正的提醒程序，我们可以根据自己的需要，添加合适的提醒触发条件，就可以做出一个真正个性化的闹钟提醒程序了。
【编辑推荐】
