用currentPosition属性,该属性用秒作单位 另外在窗口中加一定时器 Private Sub Command1_Click() WindowsMediaPlayer.Controls.currentPosition = 330 Timer1.Enabled = True End SubPrivate Sub Timer1_Timer() If WindowsMediaPlayer.Controls.currentPosition > 390 Then WindowsMediaPlayer.Controls.stop Timer1.Enabled = False End If End Sub
另外在窗口中加一定时器
Private Sub Command1_Click()
WindowsMediaPlayer.Controls.currentPosition = 330
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
If WindowsMediaPlayer.Controls.currentPosition > 390 Then
WindowsMediaPlayer.Controls.stop
Timer1.Enabled = False
End If
End Sub