Question

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

如何设计代码 才可以使我点击command后 可以播放事先做好的音频 音频有多个 这个音频是由前面选择的文档 来对应不同的音频

Answer 1

一、直接内存播放，要求声音文件要相当小，作为按键音之类使用。需要将音乐文件做成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 = LoadResData(101, "CUSTOM")
sndPlaySound B(0), &H4 '播放内存里的声音，&H8 ' 循环播放，&H1 ' 异步播放
End Sub

资源文件制作方法：
外接程序->外接程序管理器->找到资源编辑器->勾选“在启动中加载”“加载/卸载”->确定
工具->资源编辑器->添加自定义资源（在资源编辑器工具栏上，鼠标移上去会提示）->重复，把所有音乐文件添加进去->保存

二、
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Form_load()
Dim SoundFile As String, Result As Long
SoundFile = "D:\Backup\我的文档\FFOutput\两小无猜.wav" '此处为路径
Result = sndPlaySound(SoundFile, 1)
End Sub

以上方法都只能播放wav格式的文件，你需要将文件转换为wav格式。

三、

下面的办法允许播放更多格式，但是你的程序会因此而变大好多：

用控件播放音乐文件
只需要将WindowsMediaPlayer1.URL赋相应的值即可。
例如要在窗体加载时播放music.mp3这个文件，只要这样写代码。

Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub

其中加载WindowsMediaPlayer 控件的方法：
“工程”“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了，像用一般控件一样画一个。

以上所有方法vb6.0 windowsxp下测试通过