Wednesday, 24 2003 1:24 PM 当的信号则可以增加程序的用户下载完成或者选择一个命媒体功能，通过一个VB程序来运易举的事情。然而，系统必须为这一操作而安装一个声卡。

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

　　nction PlaySound Lib “winmm.dll” _

　　Alias “PlaySoullpszName As String, _

　　ByValhModule Aags As Long) _

　　As Long

　　在这一函数中，第一个变量件的路径。第二个变量在运行文件时通常不使用，所以你可以将它赋值为zero。工作的标记。

　　为了当前的需求，必须需求两个标记。它们是：

　　SND_ASYNC (value= 1)：以音时函数在运行。

　　SND_ &H20000):第一个变量为一个文件名。

　　所以，以下代码播放了.wav文件中的声音：

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

　　SND_FILENAME

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

　　on FileExists(FullFileName) As Bool

　　Passed a filename (with path) returns

　　True if the file exist

　　Dim s

　　s = dir(FullFileName)

　　If s = “” Then

　　FileExists = False

　　Else

　　FileExists = True

　　End If

　　End Function