vb实现播放声音文件

　　sndPlaySound函数需要两个参数,第一个参数soundfilename是要 播放的WAV文件的名称,第二个参数是一个表明播放方式的标识常量, 其值如上述常量定义,通常所使用的标识意义如下:

　　？SND_SYNC播放WAV文件,播放完毕后将控制转移回应用程序中。

　　？SND_ASYNC播放WAV文件,然后将控制立即转移回应用程序中。

　　？SND_NODEFAULT不要播放缺省的WAV文件,以免发生某些意外的 错误。

　　？SND_MEMORY播放以前已经加载到内存中的WAV文件。

　　？SND_LOOP循环播放WAV文件。

　　？SND_NOSTOP在开始播放其它的WAV文件之前,需要完成对本WAV 文件的播放。

　　值得注意的是SND_LOOP标识通常需要同SND_ASYNC共同使用,也即 在两个标识之间添加与播放符,以免在对WAV文件进行播放的时候将系 统挂起。

　　播放MIDI文件

　　需要在程? 体的通用声明部分中或标准模块中添加如下声明语 句:

　　Private Declare Function mciExecute Lib"winmm.dll"Alias" mciExecute"(ByVa l lpstrComman As String)As Long

　　mciExecute函数只需要一个参数CommandString,顾名思义,它是 一个命令字符串,用于表明对声音文件播放的命令,例如,希望完整播 放声音文件,则该字符串就是字符串"pl ay"加上声音文件的路径以及 文件名称,如下所示:

　　Dim Return Vsalue As Long

　　ReturnSoundValue=mciEecute("play C:\WIN95\MEDIA\CAYON.MI D/")

　　如果希望对声音文件的部分进行播放,可以使用from…to…语句 格式,例如若要 播放CANYON.MID文件的10毫秒到100毫秒的部分,可以 使用如下的语句:

　　Dim Return Value As Long

　　RetumSoundValue=mciExecute("play C:\WIND95\MEDIA/CASNYON .MID from10 to 100")