使用 mciExecutel函数 在上例中作如下修改: 1.声明 mciExecute以取代 snd Play Sound Declare Function mciEXecute Lib"winmm. dll" Alias"mciEXecute"(ByVal IpstrCommand As String) As Long 2删除 sndPlaySound( filename,1),添加: mcIEXecute("Play,& filename) 通过如上修改后,点击 Button控件,找到相应文件即可播放各种影 音文件使用mciExecute函数 在上例中作如下修改： 1. 声明mciExecute以取代sndPlaySound Declare Function mciExecute Lib "winmm.dll" Alias "mciExecute" (ByVal lpstrCommand As String) As Long 2. 删除sndPlaySound(filename, 1)，添加： mciExecute(“Play”& filename) 通过如上修改后，点击Button控件，找到相应文件即可播放各种影 音文件