vb中使用windows media player 控件设计一个MP3播放器,发现控件中的上...

发布网友 发布时间：2024-10-03 04:40

我来回答

共4个回答

热心网友 时间：2024-10-19 14:24

这是因为引用wmp控件播放音乐你是使用WindowsMediaPlayer1.URL = "a.mp3" ，导致每次传递给wmp控件音乐数为1首，所以前进与后退按钮不可用，你可以建立一个播放列表，如二楼那样

引用2楼
你在你的播放器所在目录放一个a.m3u文件，文件内容类似
N:\影音文件\经典歌曲MP3\好听Mp3\知音.mp3
N:\影音文件\经典歌曲MP3\好听Mp3\葬花吟.mp3
N:\影音文件\经典歌曲MP3\好听Mp3\映山红.mp3
注意：一个文件占一行。
而你的文件路径行改为
Me.WindowsMediaPlayer1.URL = "a.m3u"

热心网友 时间：2024-10-19 14:23

Private Sub Form_load()
With WindowsMediaPlayer1
.URL = App.Path & "\1.mp3" '播放第一首歌曲
.currentPlaylist.appendItem .newMedia(App.Path & "\2.mp3") '在播放列表中添加第二首歌曲
.currentPlaylist.appendItem .newMedia(App.Path & "\3.mp3") '在播放列表中添加第三首歌曲
End With
End Sub

热心网友 时间：2024-10-19 14:27

加上这两行就可以
MMControl1.PrevEnabled = True
MMControl1.NextEnabled = True

热心网友 时间：2024-10-19 14:24

你在你的播放器所在目录放一个a.m3u文件，文件内容类似
N:\影音文件\经典歌曲MP3\好听Mp3\知音.mp3
N:\影音文件\经典歌曲MP3\好听Mp3\葬花吟.mp3
N:\影音文件\经典歌曲MP3\好听Mp3\映山红.mp3
注意：一个文件占一行。
而你的文件路径行改为
Me.WindowsMediaPlayer1.URL = "a.m3u"