使用API（Windows应用程序编程接口）函数sndPlaySound播放WAV格式文件，使用mciExecute函数来播放MIDI文件。 1、播放WAV格式文件 要播放WAV格式文件，你必须在程序窗口的通用声明部分或标准模块中添加如下的声明：Public const SND_JYNc = &H0 Public const SND_JYNc = &H1 Public const SND_NODEFAULT= &H2 Public Const SND_MEMORY = &H4 Public Const SND_allas = &H1000 Public Const SND_FILENAME = &H2000 Public Const SND_RESOURCE = &H40004 Public Const SND_ALLAS_ID=&H110000 Public Const SND_;SIAS_START=0 Public Const SND_LOOP=&H8 Public Const SND_NOSTOP=&10 Public Const SND_VALID=&H1F Public Const SND_NOWAIT=&H2000 Public Const SND_VALIDFLAGS=H17201F Public Const SND_RESERVED=&HFF000000 Public Const SND_TYPE_MASK=&H170007 Private Declare Function sndPaySound Lib"Winmm.dll"Alias "sndPlaySoundA" (ByVal lpszSoundName As String, By Val uFlags As Long) As Long sndPlaySound函数需要两个参数：第一个参数Soundfileame是要播放的WAV文件的名称：第二个参数是一个表明播放方式的标识常量，其定义的值如前面的声明所示，通常所使用的标识意义如下： SND＿SYNC播放WAV格式文件，播放完毕后将控制转移回应用中。 SND_HSYNC播放WAV格式文件，将控制立即转移回应用程序中，而不管对WAV文件的播放是否结束。 SND＿MEMORY用于播放以前已经加载到内存中的WAV格式文件。 SND＿L00P循环播放WAV格式文件。注意：SND＿LOOP标识通常需要同SND＿ASYNC共同使用，也即在两个标识之间添加"与"播放符，以免在对WAV格式文件进行播放的时候将系统挂起。 2、播放MIDI格式文件 播放MIDI格式文件时，你必须在程序窗口的通用声明部分中或标准模块中添加如下的声明语句：Private Declare Function mciExecute Lib "winmm.dll" Alias"mciExecute"（ByVal lpstr－ Command As String）As Long API，函数mciExecute只有一个参数：CommandString，它是一个命令字符串，用于表明对声音文件播放的命令，例如，要完整播放声音文件"C:\Win－dows\Media＼Canyon.mid"，只需要用以下一些语句即可实现：Dim Return Value As Long ReturnSound Value＝mciExecute（"play C：＼Windows＼Media＼Canyon.mid"） 如果只播放MIDI格式文件的部分，就可以使用from…to…这种语句格式，例如：需要播放 CANYON．MID文件的20毫秒到5OO毫秒的部分，可以使用如下的语句：Dim Return Value As Long ReturnSoundValue＝mciExecute（"plny C:\ WINDOWS\MEDLA\CANYON.MID from 2y to 500"）
1、播放WAV格式文件
要播放WAV格式文件，你必须在程序窗口的通用声明部分或标准模块中添加如下的声明：Public const SND_JYNc = &H0
Public const SND_JYNc = &H1
Public const SND_NODEFAULT= &H2
Public Const SND_MEMORY = &H4
Public Const SND_allas = &H1000
Public Const SND_FILENAME = &H2000
Public Const SND_RESOURCE = &H40004
Public Const SND_ALLAS_ID=&H110000
Public Const SND_;SIAS_START=0
Public Const SND_LOOP=&H8
Public Const SND_NOSTOP=&10
Public Const SND_VALID=&H1F
Public Const SND_NOWAIT=&H2000
Public Const SND_VALIDFLAGS=H17201F
Public Const SND_RESERVED=&HFF000000
Public Const SND_TYPE_MASK=&H170007
Private Declare Function sndPaySound Lib"Winmm.dll"Alias "sndPlaySoundA" (ByVal lpszSoundName As String, By Val uFlags As Long) As Long sndPlaySound函数需要两个参数：第一个参数Soundfileame是要播放的WAV文件的名称：第二个参数是一个表明播放方式的标识常量，其定义的值如前面的声明所示，通常所使用的标识意义如下： SND＿SYNC播放WAV格式文件，播放完毕后将控制转移回应用中。 SND_HSYNC播放WAV格式文件，将控制立即转移回应用程序中，而不管对WAV文件的播放是否结束。 SND＿MEMORY用于播放以前已经加载到内存中的WAV格式文件。 SND＿L00P循环播放WAV格式文件。注意：SND＿LOOP标识通常需要同SND＿ASYNC共同使用，也即在两个标识之间添加"与"播放符，以免在对WAV格式文件进行播放的时候将系统挂起。 2、播放MIDI格式文件 播放MIDI格式文件时，你必须在程序窗口的通用声明部分中或标准模块中添加如下的声明语句：Private Declare Function mciExecute Lib
"winmm.dll" Alias"mciExecute"（ByVal lpstr－
Command As String）As Long API，函数mciExecute只有一个参数：CommandString，它是一个命令字符串，用于表明对声音文件播放的命令，例如，要完整播放声音文件"C:\Win－dows\Media＼Canyon.mid"，只需要用以下一些语句即可实现：Dim Return Value As Long
ReturnSound Value＝mciExecute（"play
C：＼Windows＼Media＼Canyon.mid"） 如果只播放MIDI格式文件的部分，就可以使用from…to…这种语句格式，例如：需要播放 CANYON．MID文件的20毫秒到5OO毫秒的部分，可以使用如下的语句：Dim Return Value As Long
ReturnSoundValue＝mciExecute（"plny C:\
WINDOWS\MEDLA\CANYON.MID from 2y to 500"）