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

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