Question

VB歌曲循环播放代码

我用VB带的播放器做了个简单的MP3播放器,做出来不能实现循环播放,谁能帮我下啊,(实现下循环播放)我做的播放器代码如下,在那插入循环播放语句?(要简单点的,最好有注释的,因为我是自学VB,有些难的语句看不懂)下面是我做的播放器的语句:
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.FileName
Text1.Text = File1.FileName
End Sub
先谢谢二楼的回答,但这只能实现单曲循环播放,能实现全部歌曲循环播放吗?QQ:153050995 能远程帮我帮下吗?

Answer 1

加在后面

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

End Sub

全部循环的话就要加判断了。。。用个变量当累加器，来记录放着第几首。
写一个大概的意思，因为我不知道你是用什么来存放歌曲列表的。。。所以
dim a
Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 1 Then '1为停止(一曲播完)
a=a+1
if a>歌曲总数 then a=1'第一首是1
WindowsMediaPlayer1.url=歌曲（a）
End If
End Sub

Answer 2

个人比较笨，所以建议你用timer控件