Question

vb背景的歌只有一首时怎么设置让它循环播放

是不是还要设置什么呢？我们刚学的VB，怎么通过WMP的PlayStateChange 判断播放状态改变来控制，弄了之后一直提示说没有声明NewState，MediaPlayer1.Controls.play 这句也有错

Answer 1

这个通过WMP的PlayStateChange 判断播放状态改变来控制。

Private Sub MediaPlayer1_PlayStateChange(ByVal NewState As Long)
'当播放器的播放状态变为"停止"时,再次播放
If NewState = 1 Then '1为停止(一曲播完)
MediaPlayer1.Controls.play '再播放
End If
End Sub

我测试过了，没错啊，你把控件名称改一下嘛，要不就把这里的MediaPlayer1改成WindowsMediaPlayer1。其它的都不用设置。