用vb.net实现闹钟提醒程序
源代码网整理以下一个提醒程序，最典型的就是闹钟程序。网上有不少个性化的提醒程序下载，但是大部分都是以时间为主的闹钟提醒。我们也可以用VB.NET来打造一个适合自己的提醒程序，比如监控一个某个应用程序的变化然后发出声音提醒自己等等。 源代码网整理以下 一个提醒程序，最重要能在符合提醒条件的时候发出声音来提醒使用者，在这里，我们就对具体的提醒条件啰嗦了，只针对如何实现提醒声音的播放进行说明。 源代码网整理以下 在VB.NET的。net组件中，并没有提供播放声音文件的组件，但是我们可以通过使用Com组件来播放声音文件。但是，要注意的事，我们只需要发出提示的声音而已，并不需要像播放器那样播放不同格式的声音文件和繁多的列表，所以我们可以通过API函数来循环播放单个的声音文件。 源代码网整理以下 源代码网整理以下 源代码网整理以下 首先在VB.NET中引入API声明 源代码网整理以下 Public Declare Function PlaySound Lib "winmm.dll" （ByVal lpszSoundName As String， ByVal hModule As Integer， ByVal dwFlags As Integer） As Integer 软件开发网 www.mscto.com
源代码网整理以下 然后定义几个我们程序中必须用到的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 软件开发网 www.mscto.com 源代码网整理以下 运行，在TextBox1中输入有效的WAV文件的路径，然后单击开始，就可以循环播放声音了，单击停止按钮就可以停止播放。 源代码网整理以下 当然，本文只是讲述制作一个闹钟提醒程序的关键部分的实现，要完成一个真正的提醒程序，我们可以根据自己的需要，添加合适的提醒触发条件，就可以做出一个真正个性化的闹钟提醒程序了。 源代码网推荐 源代码网供稿. |
