Wednesday, September 24 2003 1:24 PM 當一定事件完成時，程序發(fā)出特定的信號則可以增加程序的用戶界面特性，比如在下載完成或者選擇一個命令的時候。使用一個多媒體功能，通過一個VB程序來運行WAV文件是一件輕而易舉的事情。然而，系統(tǒng)必須為這一操作而安裝一個聲卡。

　　你所需要的API函數(shù)稱為PlaySound，以下為該函數(shù)的聲明：

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

　　在這一函數(shù)中，第一個變量是名稱，包括運行的Wave文件的路徑。第二個變量在運行文件時通常不使用，所以你可以將它賦值為zero。最后一個變量包含控制函數(shù)如何工作的標記。

　　為了當前的需要，必須需要兩個標記。它們是：

　　SND_ASYNC (value= 1)：以異步方式運行，這意味著當播放聲音時函數(shù)在運行。
　　SND_FILENAME (value = &H20000):第一個變量為一個文件名。
　　所以，以下代碼播放了DingDong.wav文件中的聲音：

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

　　當運行在一個程序中運行音頻文件時，還有其他兩點值得注意。第一，你必須確保一個特定的音頻文件存在，否則會產(chǎn)生錯誤。這一過程可以用以下一個簡單的函數(shù)來完成：

　　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