VB.NET播放WAV实现方法介绍

VB.NET编程语言可以说功能是非常强大的。而且其的应用范围也是很广泛。比如对界面的操作,和对声音的操作等等。我们今天将会了解到有关VB.NET播放WAV的相关应用技巧,希望能给大家大带来希望。

10年积累的成都网站制作、网站建设经验,可以快速应对客户对网站的新想法和需求。提供各种问题对应的解决方案。让选择我们的客户得到更好、更有力的网络服务。我虽然不认识你,你也不认识我。但先网站制作后付款的网站建设流程,更有营山免费网站建设让你可以放心的选择与我们合作。

Wednesday, September 24 2003 1:24 PM 当一定事件完成时,程序发出特定的信号则可以增加程序的用户界面特性,比如在下载完成或者选择一个命令的时候。使用一个多媒体功能,通过一个vb程序来运行WAV文件是一件轻而易举的事情。然而,系统必须为这一操作而安装一个声卡。

你所需要的API函数称为PlaySound,以下为该函数的声明:

 
 
 
  1. Public Declare Function
     PlaySound Lib "winmm.dll" _  
  2. Alias "PlaySoundA" 
    (ByVallpszName As String, _  
  3. ByValhModule As Long, 
    ByValdwFlags As Long) _  
  4. As Long  

在这一函数中,第一个变量是名称,包括运行的Wave文件的路径。第二个变量在运行文件时通常不使用,所以你可以将它赋值为zero。最后一个变量包含控制函数如何工作的标记。

为了当前的需要,必须需要两个标记。它们是:

SND_ASYNC (value= 1):以异步方式运行,这意味着当播放声音时函数在运行。

SND_FILENAME (value = &H20000):第一个变量为一个文件名。

所以,以下VB.NET播放WAV代码播放了DingDong.wav文件中的声音:

 
 
 
  1. PlaySound "dingdong.
    wav", CLng(0), _  
  2. SND_ASYNC Or SND_FILENAME  

当运行在一个程序中运行音频文件时,还有其他两点值得注意。第一,你必须确保一个特定的音频文件存在,否则会产生错误。这一过程可以用以下一个简单的函数来完成:

 
 
 
  1. Public Function FileExists
    (FullFileName) As Boolean  
  2. '' Passed a filename 
    (with path) returns  
  3. '' True if the file 
    exists, False if not.  
  4. Dim s  
  5. s = dir(FullFileName)  
  6. If s = "" Then  
  7. FileExists = False 
  8. Else  
  9. FileExists = True 
  10. End If  
  11. End Function  

第二,VB.NET播放WAV程序必须具有为用户提供关闭声音的选择设置。这一过程可以通过使用一个比如gProgramSoundsEnabled的全局布尔变量来实现。

我的方法是在一个函数中同时处理这些需要,如下所示。(以下代码假设音频文件已经存放在程序文件中)

 
 
 
  1. Private Sub PlaySoundX
    (filename As String)  
  2. '' If sound is enabled 
    and filename exists,  
  3. '' play the specified sound.  
  4. filename = App.path & 
    "" & filename  
  5. If FileExists(filename) 
    And gProgramSoundsEnabled Then  
  6. PlaySound filename, CLng(0), 
    SND_ASYNC Or SND_FILENAME  
  7. End If  
  8. End Sub  

正确使用这些函数,程序就可以播放任何Wave文件,如下所示:

 
 
 
  1. PlaySoundX "DingDong.wav"  

VB.NET播放WAV的其他方法包括窗体上的多媒体控制。当你不需要这些控制特性时,以上讲述的技术已经足够,并且很容易掌握。

【编辑推荐】

  1. VB.NET嵌入文件操作技巧分享
  2. 深入分析VB.NET FieldOffset特性
  3. VB.NET资源文件应用经验总结
  4. VB.NET Dllimport特性内容概述
  5. 简单实现VB.NET打开Notes数据库

网页题目:VB.NET播放WAV实现方法介绍
URL标题:http://www.36103.cn/qtweb/news49/32049.html

网站建设、网络推广公司-创新互联,是专注品牌与效果的网站制作,网络营销seo公司;服务项目有等

广告

声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联