VB中windowsmediaplayer如何定位播视频

Question

一个windowsmediaplayer控件，一个timer控件，Interval=10000
如何每隔10秒windowsmediaplayer.controls.pause,然后在定位到别的position播放视频？

Answer 1

Private Sub Form_Load()
Timer1.Interval = 10000
Text1.Text = 50
WindowsMediaPlayer1.URL = "D:\新建文件夹 (2)\bknk1.rm"
End SubPrivate Sub Text1_Change()
If Not IsNumeric(Text1.Text) Then Text1.Text = ""
End SubPrivate Sub Timer1_Timer()
WindowsMediaPlayer1.Controls.pause '暂停
n = Val(Text1.Text)'n是总长度的百分之几,不可超过100
WindowsMediaPlayer1.Controls.currentPosition = n * WindowsMediaPlayer1.currentMedia.duration / 100
WindowsMediaPlayer1.Controls.play
End Sub