在向大家详细介绍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程序制作一个闹钟提醒程序的关键部分的实现,要完成一个真正的提醒程序,我们可以根据自己的需要,添加合适的提醒触发条件,就可以做出一个真正个性化的闹钟提醒程序了。
本文标题:讲解VB.NET程序制作一个提醒程序
URL分享:http://www.36103.cn/qtweb/news20/29170.html
网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联