用VB程序来播放WAV文件

ZDNet软件频道 时间:2003-09-24 作者:ZDNet China |  我要评论()
本文关键词:vbtips
从VB程序播放音频文件的其他方法包括窗体上的多媒体控制。当你不需要这些控制特性时,本文讲述的技术已经足够,并且很容易掌握。
本文译自Builder.com,未经许可请勿转载当一定事件完成时,程序发出特定的信号则可以增加程序的用户界面特性,比如在下载完成或者选择一个命令的时候。使用一个多媒体功能,通过一个VB程序来运行WAV文件是一件轻而易举的事情。然而,系统必须为这一操作而安装一个声卡。

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

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

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

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

  • SND_ASYNC (value= 1):以异步方式运行,这意味着当播放声音时函数在运行。
  • SND_FILENAME (value = &H20000):第一个变量为一个文件名。

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

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

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

Public Function FileExists(FullFileName) As Boolean

' Passed a filename (with path) returns
' True if the file exists, False if not.


Dim s

s = dir(FullFileName)

If s = "" Then
    FileExists = False
Else
    FileExists = True
End If

End Function


百度大联盟认证黄金会员Copyright© 1997- CNET Networks 版权所有。 ZDNet 是CNET Networks公司注册服务商标。
中华人民共和国电信与信息服务业务经营许可证编号:京ICP证010391号 京ICP备09041801号-159
京公网安备:1101082134