vb中 点击按钮 可以播放音频

一、直接内存播放，要求声音文件要相当小，作为按键音之类使用。需要将音乐文件做成res资源文件： Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Private Sub Command2_Click() Dim B() As Byte B = Lo