Question

VB6, 我已经把 WindowsMediaPlayer1 加进来了

请问大家：
我把 WindowsMediaPlayer1 加进来，然后运行
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = "C:\......\Music.mp3"
End Sub
怎么就没有音乐呢？
连错误信信息都没有！
也试过把
WindowsMediaPlayer1.URL = "C:\......\Music.mp3"
改为这样也没有动静：
WindowsMediaPlayer1.URL = App.Path & "\Music.mp3"
我已经开始怀疑我的 VB6 有问题了，有没有义士帮我 运行一下呢？

Answer 1

没有错误信息一般就是路径有问题 你可以将mp3文件 放到 根目录下试试 然后用dir测试文件路径是否有效，加个msgbox提示框 来确认

if dir(""C:\Music.mp3"") then

WindowsMediaPlayer1.URL = "C:\Music.mp3"

msgbox "开始播放"

end if

追问

谢谢！这句说是有语法错误：
if dir(""C:\Music.mp3"") then

追答

if dir("C:\Music.mp3") then 双引号多了

追问

if dir("C:\Music.mp3") then
说是 Run-time error '13':
Type mismatch

追答

If Dir("C:\Music.mp3") "" Then

Answer 2

一般是路径问题

追问

谢谢！
我把音乐文件 Music.mp3 放在 OS (C:) 下都不行：
WindowsMediaPlayer1.URL = "C:\Music.mp3"