Question

VB怎么播放音乐

App.Path & "\music\1.mp3"这个具体怎么用？？？

Answer 1

Playsound是播放wav音乐的，但楼主的是mp3
应该用API：mciSendString函数来播放：
Call mciSendString("open " & App.Path & "\music\1.mp3", vbNullString, 0, 0)
Call mciSendString("play " & App.Path & "\music\1.mp3" & " repeat", vbNullString, 0, 0) '循环播放

追问

子程序或函数未定义

追答

这个是API函数，你不声明 怎么调用啊

Answer 2

用API playsound()即可。但播的是wav的。你要转一下格式

追问

App.Path & "\music\1.mp3"这个怎么写？

追答

不建议这样写。

追问

为什么？这样就可以播放EXE目录下的音乐~

追答

对的。取得当前exe程序的应用路径。

Answer 3

shell App.Path & "\music\1.mp3"

追问

windowsmedia.URL = shell App.Path & "\music\1.mp3"？？？

追答

直接用shell这个函数，App.Path & "\music\1.mp3"是它的参数。