在菜单栏的 工程-部件-Microsoft Windows common Controls 6.0 与 Windows Media Player 两项打上对勾,点击确认。
窗体中创建一个 WindowsMediaPlayer1,一个 Slider1,一个 Timer1控件,并输入以下代码:
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "" '设置播放路径
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
'/////播放器进度控制
Private Sub Slider1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub
Private Sub Slider1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Slider1.Value = WindowsMediaPlayer1.Controls.currentPosition '显示实时速度
End Sub
Private Sub Slider1_Click()
WindowsMediaPlayer1.Controls.currentPosition = Slider1.Value '改变播放进度
End Sub
'/////播放器状态改变
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
Slider1.Max = Int(WindowsMediaPlayer1.currentMedia.duration) '设置播放长度
End Sub