Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 WindowsMediaPlayer1.Controls.play '播放 Exit Sub Case 1 WindowsMediaPlayer1.Controls.pause '暂停 Exit Sub Case 2 WindowsMediaPlayer1.Controls.stop '停止 Exit Sub Case 3 WindowsMediaPlayer1.Controls.fastForward '快进 Exit Sub Case 4 WindowsMediaPlayer1.Controls.fastReverse '快退 Exit Sub Case 5 WindowsMediaPlayer1.Controls.Next '下一曲 Exit Sub Case 6 WindowsMediaPlayer1.Controls.previous '上一曲 Exit SubEnd Select End SubPrivate Sub Form_Load() WindowsMediaPlayer1.URL = "D:\太极拳\AVSEQ00.DAT" End Sub
Select Case Index
Case 0
WindowsMediaPlayer1.Controls.play '播放
Exit Sub
Case 1
WindowsMediaPlayer1.Controls.pause '暂停
Exit Sub
Case 2
WindowsMediaPlayer1.Controls.stop '停止
Exit Sub
Case 3
WindowsMediaPlayer1.Controls.fastForward '快进
Exit Sub
Case 4
WindowsMediaPlayer1.Controls.fastReverse '快退
Exit Sub
Case 5
WindowsMediaPlayer1.Controls.Next '下一曲
Exit Sub
Case 6
WindowsMediaPlayer1.Controls.previous '上一曲
Exit SubEnd Select
End SubPrivate Sub Form_Load()
WindowsMediaPlayer1.URL = "D:\太极拳\AVSEQ00.DAT"
End Sub
(windowsmediaplayer.controls.fastforward和windowsmediaplayer.controls.fastreverse)怎么控制快进和快退呢?我经过试验找到了解决办法