Wednesday, September 24 2003 1:24 PM 當必定作業完結時，程序宣布特定的信號則能夠添加程序的用戶界面特性，比如在下載完結或許挑選一個命令的時分。運用一個多媒體功用，經過一個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)u3000
If s = “” Then
u3000FileExists = False
Else
FileExists = True
End If
End Function

http://m.guestlion.cn/wuliuwenda/16828.html 如何用vb程序來完成“在隨意一個當地來尋覓廁所或許尋覓快遞點的途徑查詢”