大家帮我看看 问题出在哪了、、、提前谢谢了
我要编一个本地播放器
引用了WMP和commom dialog 俩个部件、
下面是代码:
Option Explicit
Dim playfilename As String
Dim playposition As Double
Private Sub Command1_Click() ‘这个是第一个按钮 播放键
Command2.Enabled = True
Command3.Enabled = True
WindowsMediaPlayer1.FileName = playfilename
WindowsMediaPlayer1.SelectionStart = playposition
WindowsMediaPlayer1.play
End Sub
Private Sub Command2_Click() ’这个是 暂停按钮
Command1.Enabled = False
WindowsMediaPlayer11.pause
playposition = WindowsMediaPlayer1.currentPosition
End Sub
Private Sub Command3_Click() ‘这个是停止
playposition = 0
Command3.Enabled = False
Command2.Enabled = False
Command1.Enabled = True
WindowsMediaPlayer1.Stop
End Sub
Private Sub Command4_Click() ’这个是浏览
CommonDialog1.ShowOpen
playfilename = CommonDialog1.FileName
playposition = 0
End Sub
Private Sub Command5_Click() '退出
Unload Me
End
End Sub
Private Sub Form_Load()
End Sub
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
End Sub
最后调试的时候没错、就是不能播放媒体文件、MP3,wav等都不能
不知道怎么回事
[解决办法]
把:
WindowsMediaPlayer1.FileName = playfilename
改为:
WindowsMediaPlayer1.URL = playfilename