vb 多曲循环播放

来源：百度知道 编辑：UC知道 时间：2024/05/28 04:04:39
如题目。。。单曲循环播放本人会弄。。现在想弄个，，首或更多的曲目循环播放。。。不知道代码怎么加进去。。。开请各位帮帮忙。。。。谢谢了先。。最好写明白些。本人刚刚学VB
用的是windowsmediaplayer控件。。就是VB里面自己带的音乐控件，，还有。你们写的怎么那么麻烦？？？主要一点我想问。。一首歌循环如何实现多首循环。。。
Private Sub Form_Load()
WindowsMediaPlayer1.URL = "F:\资料\编程\音效\周杰伦-兰亭序.wma" '播放音乐文件
WindowsMediaPlayer1.settings.playCount = 2 '使音乐文件循环播放
End Sub

还有“Dir”这个什么东东。。到现在位置还没见过麻烦解释一下。谢谢，先

这是一首歌的循环（这个最简单，比网上写的那个好多了，，有个人写的老长还发了好多个地方。。汗）。。怎么加代码进去弄成多首歌的循环

用的什么控件？自带播放列表不？

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

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

Private Sub File1_Click()
If List1.ListCount = 0 Then
List1.AddItem Dir1.Path & "\" & File1.FileName '增加曲目到列表中
List1.ListIndex = 0
MediaPlayer1.FileName = List1.Text '设置播放曲目
MediaPlayer1.AutoStart = True
Else
List1.AddItem Dir1.Path & "\" & File1.FileName '增加曲目到列表中
End If
End Sub

Private Sub List1_Click()
Text1.Text = List1.Text
End Sub

Private Sub MediaPlayer1_PlayStateChange(ByVal OldState As Long, ByVal NewState As Long)
'自动循环播放
If MediaPlayer1.PlayState = mpStopped Then
If List1.ListIndex < List1.ListCount - 1 Then
List1.ListIndex = List1.ListIndex + 1
MediaPlaye