Private Sub Command1_Click()
WindowsMediaPlayer1.URL = File1.FileName
If File1.FileName = "" Then
a = MsgBox("请选择播放文件", 0 + 32, "WindowsMediaPlayer")
Else
WindowsMediaPlayer1.Controls.play
End If
Command2.Enabled = True
End Sub
哪里出错了啊？？？
用VB编写Windows Media Player的URL用file怎么表示
答案:2 悬赏:20 手机版
解决时间 2021-03-23 13:01
- 提问者网友：刺鸟
- 2021-03-23 08:19
最佳答案
- 五星知识达人网友：山有枢
- 2021-03-23 08:32
File1.FileName只是文件名称，URL还要把文件路径全部包含进去。
FileNow=Dir1.Path & "\" & File1.FileName
WindowsMediaPlayer1.URL = FileNow
而且要放在Else之后和WindowsMediaPlayer1.Controls.play之前
FileNow=Dir1.Path & "\" & File1.FileName
WindowsMediaPlayer1.URL = FileNow
而且要放在Else之后和WindowsMediaPlayer1.Controls.play之前
全部回答
- 1楼网友：风格不统一
- 2021-03-23 09:41
windows media player这个控件好像是不支持rmvb和rm,ra这些realplay格式的。
至于mp3格式。好像有些是支持的，有些不支持，可能是本身音乐文件的编码不同吧。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯