声明API
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
调用：（经过群友指导，使用Chr(34)解决了文件路径包含空格导致播放失败的问题）
Call mciSendString("open " & Chr(34) & mypath & Chr(34) & " type MPEGVideo alias MP3", vbNullString, 0, 0) '打开1.mp3
还有比这个方法更好的吗？
甚至偶尔还会出现“MCI driver is NOT installed.”的错误
Views: 101
邓伟 已回答的问题 2024 年 4 月 21 日
抱歉，你无权阅读评论。
来看看四川大神“系统消息”是咋说的：
@睡神 如果要想播放mp3等非wav格式或者同时播放多个音频文件的话，在VB6里面建议用这个（别用mci那个辣鸡玩意儿），用下面这个对象库：
VB6调用ActiveMovie直接工程引用进来，啥都有了还方便得多，mci的话要自己声明API不说，命令全是用字符串来写完全没有任何补全提示
Views: 0
邓伟 更改状态以发布 2024 年 4 月 22 日
抱歉，你无权阅读评论。