Wednesday, September 24 2003 1:24 PM 当必定作业完结时，程序宣布特定的信号则能够添加程序的用户界面特性，比方在下载完结或许挑选一个指令的时分。运用一个多媒体功用，经过一个VB程序来运转WAV文件是一件垂手可得的作业。但是，体系有必要为这一操作而装置一个声卡。

　　u3000u3000你所需求的API函数称为PlaySound，以下为该函数的声明：

　　u3000u3000Public Declare Function PlaySound Lib “winmm.dll” _

　　u3000u3000Alias “PlaySoundA” (ByVallpszName As String, _

　　u3000u3000ByValhModule As Long, ByValdwFlags As Long) _

　　u3000u3000As Long

　　u3000u3000在这一函数中，榜首个变量是称号，包括运转的Wave文件的途径。第二个变量在运转文件时一般不运用，所以你能够将它赋值为zero。最终一个变量包括操控函数怎么作业的符号。

　　u3000u3000为了当时的需求，有必要需求两个符号。它们是：

　　u3000u3000SND_ASYNC (value= 1)：以异步方法运转，这意味着当播映声响时函数在运转。

　　u3000u3000SND_FILENAME (value = &H20000):榜首个变量为一个文件名。

　　u3000u3000所以，以下代码播映了DingDong.wav文件中的声响：

　　u3000u3000PlaySound “dingdong.wav”, CLng(0), _

　　u3000u3000SND_ASYNC Or SND_FILENAME

　　u3000u3000当运转在一个程序中运转音频文件时，还有其他两点值得注意。榜首，你有必要保证一个特定的音频文件存在，否则会发生过错。这一进程能够用以下一个简略的函数来完结：

　　u3000u3000Public Function FileExists(FullFileName) As Boolean

　　u3000u3000 Passed a filename (with path) returns

　　u3000u3000 True if the file exists, False if not.

　　u3000u3000Dim s

　　u3000u3000s = dir(FullFileName)u3000u3000u3000

　　u3000u3000If s = “” Then

　　u3000u3000u3000FileExists = False

　　u3000u3000Else

　　u3000u3000FileExists = True

　　u3000u3000End If

　　u3000u3000End Function