用VB编写Windows Media Player的URL用file怎么表示
来源:百度知道 编辑:UC知道 时间:2024/05/22 16:11:45
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
哪里出错了啊???
WindowsMediaPlayer1.URL = File1.FileName
If File1.FileName = "" Then
a = MsgBox("请选择播放文件", 0 + 32, "WindowsMediaPlayer")
Else
WindowsMediaPlayer1.Controls.play
End If
Command2.Enabled = True
End Sub
哪里出错了啊???
File1.FileName只是文件名称,URL还要把文件路径全部包含进去。
FileNow=Dir1.Path & "\" & File1.FileName
WindowsMediaPlayer1.URL = FileNow
而且要放在Else之后和WindowsMediaPlayer1.Controls.play之前
filelistbox控件和command控件在一个窗体里么?