请教VB高手》vb 编写mp3播放器

来源：百度知道编辑：UC知道时间：2024/05/24 15:20:00

我要的是自己的不是调用media player

vb代码怎么写，请详细说明，网上的把我弄得乱七八糟

模似千千静听

需要以下的：
播放，暂停，停止，前进，后退
音量升降
显示播放时间
自定义播放列表
显示歌词

注意：必须添加msdxm.ocx部件，即MediaPlayer控件

Private Sub Combo1_Click()

File1.Pattern = Combo1.Text

File1.Path = App.Path & "\mp3"

End Sub

Private Sub Form_Load()

File1.Pattern = ""

End Sub

Private Sub File1_Click()

MediaPlayer1.FileName = App.Path & "\mp3\" & File1.List(File1.ListIndex)

MediaPlayer1.AutoStart = True

Text1 = File1.List(File1.ListIndex)

Exit Sub

End Sub