知识大全用vb.net实现闹钟提醒程序

Posted 2022-07-17 文件

篇首语：知识的用处就是夜行人的火把。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用vb.net实现闹钟提醒程序相关的知识，希望对你有一定的参考价值。

　　一个提醒程序最典型的就是闹钟程序网上有不少个性化的提醒程序下载但是大部分都是以时间为主的闹钟提醒我们也可以用来打造一个适合自己的提醒程序比如监控一个某个应用程序的变化然后发出声音提醒自己等等

　　一个提醒程序最重要能在符合提醒条件的时候发出声音来提醒使用者在这里我们就对具体的提醒条件啰嗦了只针对如何实现提醒声音的播放进行说明

　　在的 net组件中并没有提供播放声音文件的组件但是我们可以通过使用Com组件来播放声音文件但是要注意的事我们只需要发出提示的声音而已并不需要像播放器那样播放不同格式的声音文件和繁多的列表所以我们可以通过API函数来循环播放单个的声音文件

　　在WindowsAPI函数的有一个PlaySound函数它用于播放WAV格式的声音文件我们可以用它来反复播放一个指定的WAV文件来实现提醒功能

　　首先在中引入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 = &H

　　异步调用PlaySound中指定的文件不必等到播放完WAV文件后就直接返回结果在这里我们可以调用异步方法来播放文件

　　Const SND_ASYNC As Integer = &H

　　反复播放指定的WAV文件

　　Const SND_LOOP As Integer = &H

　　在调用的时候hModule参数必须为

　　需要停止的时候通过调用PlaySound（vbNullString ）来实现现在我们在窗体上放置两个按钮一个用于开始播放一个用于停止播放然后再放置一个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 = &H

　　Const SND_ALIAS As Integer = &H

　　Const SND_SYNC As Integer = &H

　　Const SND_ASYNC As Integer = &H

　　Const SND_LOOP As Integer = &H

　　Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

　　PlaySound（TextBox Text SND_LOOP Or SND_ASYNC）

　　End Sub

　　Private Sub Button _Click（ByVal sender As System Object ByVal e As System EventArgs） Handles Button Click

　　PlaySound（vbNullString ）

　　End Sub

　　运行在TextBox 中输入有效的WAV文件的路径然后单击开始就可以循环播放声音了单击停止按钮就可以停止播放

cha138/Article/program/net/201311/12453

知识大全 用vb.net实现闹钟提醒程序