vb实现播放声音文件

　　micExecute函数也可以用来对WAV文件进行播放,方法同播放MIDI 一样。

　　样例程序

　　1.在Visual Basic中开始一个新的项目,采用缺省的方法建立For m1。

　　2.将如下声明语句添加到Form1的通常声明部分中(注意每个声明 语句需要书写在一行内):

　　Private Declare Function sndPlaySound Lib"winmm.dll"Alia s"sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long)As long
　　 Const SND_SYNC=& H0
　　 Const SND_ASYNC=& H1
　　 Const SND_NODEFAULT=& H2
　　 Const SND_MEMORY=& H4
　　 Const SND_ALIAS=& H10000
　　 Const SND_FILENAME=&H20000
　　 Const SND_RESOURCE=& H40004
　　 Const SND_ALIAS_ID=& H110000
　　 Const SND_ALIAS_START=0
　　 Const SND_LOOP=& H8
　　 Const SND_NOSTOP=& H10
　　 Const SND_VALID=& H1F
　　 Const SND_NOWAIT=& H2000
　　 Const SND_validflags=& H17201F
　　 Const SND_RESERVED=& HFF000000
　　 Const SND_TYPE_MASK=& H170007
　　 Private Declare Function mciExecute Lib"winmm.dll"Alias" mciExecute"(ByVa l lpstrCommand As String)As Long

　　3.在Forml上添加一个文本框控件,采用缺省的方法建立TexT1。 将其Caption属性设置为NULL。

　　4.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comman d1。将其Caption属性设置为"使用mciExecute函数"。

　　5.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comman d2。将其Cpaption 属性设置为"使用mciExecute函数"。

　　6.将如下代码添加到Command1的单击事件中:

　　Private Sub Command1_Click()

　　Dim Return Value As Long

　　Text1.Test="使用sndPlaySound函数播放Canyon.mid文件Return Value=sanPlaySou nd("C:\WIN95\WEDIA\TADA.WAV",SND_SYNC)

　　End Sub

　　7.将如下代码添加到Command2的单击事件中:

　　Private Sub Command2_Click()

　　Dim Return Value As Long

　　Text1.Test="使用sndPlaySound函数播放Canyon.mid文件。"

　　ReturnSoundValue=mciExdecute"play C:\WIN95\MEDA\CNYON.MI D from 10to 100"

　　EndSub

　　按下F5键来执行样例程序。单击"使用sndPlaySound函数"命令按 钮,则使用sndPlay Sound函数来播放C:\WIN95\MEDIA目录下的TADA.W AV声音文件。音击"使用mciExe cute函数来播放C:\MIN95\MED IA目录下CANYON.MID文件的10毫秒到100毫秒的部分。