如何用VB6.0在编程中插入音乐？（是在一个命令按钮之下的）

如何用VB6.0在编程中插入音乐？（是在一个命令按钮之下的）

Option Explicit

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
mciSendString "open d:\1.mp3 alias mc", 0, 0, 0 ‘’‘改成自己的音乐
mciSendString "play mc", 0, 0, 0
End Sub

加个多媒体控件 部件里自己找 隐藏 设好路径 点按钮的时候让多媒体空间播放就性了

一个是使用相对路径，这样的优点是以后修改很简单，复制粘贴音乐文件即可，方法是所有调用到音乐的路径写为app.path & "\***" ，音乐文件保存到当前目录下，但是如果音乐文件被删除可能会出错（当然，代码异常处理写得好也不会有事） 另一个办法是资源，点击菜单里的 外接程序 外接程序管理器 vb6资源编辑器 加载行为头两个打钩 确定 然后开始添加文件，调用方式之类的自己上网搜一下 这种方法等于集成，别人看不到你的音乐文件，自然改不了，代码照常