如何用vb程序来完成“在随意一个当地来寻觅厕所或许寻觅快递点的途径查询”

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://www.yuntisoft.com/wuliuwenda/16828.html 如何用vb程序来完成“在随意一个当地来寻觅厕所或许寻觅快递点的途径查询”