实时播放错误，
Private Sub Command1_Click()
Timer1.Enabled = False
'视频正常播放速度。
MediaPlayer1.Rate = 1
MediaPlayer1.Play
End Sub
Private Sub Command2_Click()
MediaPlayer1.DisplayMode = mpFrames
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
'加载视频文件
MediaPlayer1.FileName = App.Path + "\gears.avi"
End Sub
Private Sub Timer1_Timer()
If MediaPlayer1.CurrentPosition > 0 Then
'设置视频当前播放位置。
MediaPlayer1.currentpostition = MediaPlayer1.CurrentPosition - 1
End If
End Sub
以上是源代码。
当我点击正在播放的时候，它说对象“PLAY”的方法“IMEDIAPLAYER2”失败。
我不知道是什么原因。调试的时候指针停在：MediaPlayer1.Play上，可以帮我看看吗？
问题点数：0、回复次数：3Top
1 楼cuizm（射天狼 http://www.j2soft.cn/）回复于 2003-09-02 14:20:18 得分 0
播之前要先关闭,然后再打开播放!!Top
2 楼5653325（等待开刃的刀）回复于 2003-09-02 19:34:38 得分 0
先关闭再播放
Top
3 楼lm517（男一号）回复于 2003-09-05 12:15:38 得分 0
关注ing...Top
