如何利用VB中WindowsMediaPlayer播放多首音乐

显示全部楼层 · 2010-12-5 11:49:51

WindowsMediaPlayer播放多首MP3音乐，一首播放完后自动播放下一首，求各位高手解答，谢谢
要代码，最好有注释，我能看懂

千问 · 2010-12-5 11:49:51

假设歌曲曲目在file1里显示Private Sub Timer1_Timer()If WindowsMediaPlayer1.playState = 1 ThenWindowsMediaPlayer1.URL = File1.List(File1.ListIndex + 1)If File1.ListCount > File1.ListIndex + 1 ThenFile1.ListIndex = File1.ListIndex + 1End If End IfWindowsMediaPlayer1.Controls.playEnd Sub