level 5
下雪没有化雪冷
楼主
我想循环播放一个视屏，如下。可是播放完本该再播放的却卡在一开始的画面上了，但是显示的还是正在播放，问题出在那里了？
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\flash\1.mp4"
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then '1为停止(一曲播完)
WindowsMediaPlayer1.Controls.Play '再播放
End If
End Sub
2015年05月29日 03点05分
1
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\flash\1.mp4"
End Sub
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then '1为停止(一曲播完)
WindowsMediaPlayer1.Controls.Play '再播放
End If
End Sub
