Question

VB 如何实时知道Windows mediaplayer的播放状态，比如播放到第几秒了，至少得知道是否在播放，是否停止？

Answer 1

知道播放到第几秒的代码
Private Sub Form_Load()
Timer1.Interval = 500
End Sub

Private Sub Timer1_Timer()
Text1.Text = WindowsMediaPlayer1.Controls.currentPositionString
End Sub
知道是否在播放，是否停止的代码
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then Me.Caption = "停止"
If NewState = 3 Then Me.Caption = "正在播放"
End Sub

Answer 2

举例
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then '1为停止(一曲播完)
WindowsMediaPlayer1.Controls.play '再播放
End If
end sub

NewState判断这个值