读书人

大家帮小弟我看看 有关问题出在哪了、

发布时间: 2012-05-07 12:40:40 作者: rapoo

大家帮我看看 问题出在哪了、、、提前谢谢了
我要编一个本地播放器
引用了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

读书人网 >VB

热点推荐