如何利用VB中WindowsMediaPlayer播放多首音乐
WindowsMediaPlayer播放多首MP3音乐,一首播放完后自动播放下一首,求各位高手解答,谢谢要代码,最好有注释,我能看懂...
WindowsMediaPlayer播放多首MP3音乐,一首播放完后自动播放下一首,求各位高手解答,谢谢
要代码,最好有注释,我能看懂 展开
要代码,最好有注释,我能看懂 展开
1个回答
展开全部
假设歌曲曲目在file1里显示
Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = 1 Then
WindowsMediaPlayer1.URL = File1.List(File1.ListIndex + 1)
If File1.ListCount > File1.ListIndex + 1 Then
File1.ListIndex = File1.ListIndex + 1
End If
End If
WindowsMediaPlayer1.Controls.play
End Sub
Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = 1 Then
WindowsMediaPlayer1.URL = File1.List(File1.ListIndex + 1)
If File1.ListCount > File1.ListIndex + 1 Then
File1.ListIndex = File1.ListIndex + 1
End If
End If
WindowsMediaPlayer1.Controls.play
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询