调用playsound API函数
你可以用VB的API浏览器找到这个函数的声明

解决方案 »

  1.   

    用MCI就可以,而且还可以录制WAV格式的声音文件,看看MSDN吧
      

  2.   

    Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As LongsndPlaySound32 "c:\123.wav", &H1
    &H1为可选,程序不用等待sndPlaySound函数返回,在播发音乐过程中
    可以做其他比如键盘,鼠标事件响应
      

  3.   

    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long' 异步播放
    Private Const SND_ASYNC = &H1
    ' 同步播放
    Private Const SND_SYNC = &H0Public Function PlayWAV(WAVFile As String)
      sndPlaySound WAVFile, SND_ASYNC
      ' 异步播放音频文件,即未播放完即执行下一步代码
      ' 同步播放音频文件时,更改为 SND_SYNC
    End Function