Question

关于vb6的windowsmediaplayer的两个问题

首先，如何实现暂停并可以继续播放的功能？我已经试过了 .controls.pause再 play，可是之后就重新开始了。输出了一下PlayState，值是2，是暂停没错啊。
最后一个问题，如何做到只播放一首歌？

Answer 1

Private Sub Command1_Click()
    Me.WindowsMediaPlayer1.Controls.pause
End Sub

Private Sub Command2_Click()
    Me.WindowsMediaPlayer1.Controls.play
End Sub

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

不知道你的是怎么情况，我运行时一切正常