用VB制作MP3播放列表

IT商界

海浪轻风 · 2003年12月8日

　　喜欢音乐的人，经常用Winamp播放MP3，但一首首地选择歌曲实在太麻烦，所以需要把经常收听的歌曲制成一个播放列表，以后只要双击这个文件就可以依次播放所有的文件了。但是制作时，需要打开Winamp和列表插件才能进行。其实如果你用记事本打来这些文件(即*.m3u)就会发现，其实这是一个含有文件路径和文件名的文本文件，所以我们可以用VB来轻松制作出这些播放列表文件。

　　程序设计：首先新建一工程，在窗体上添加Drivelistbox控件、Dirlistbox控件、filelistbox控件、listbox控件和combobox控件各一个，再加上三个COMMAND按钮控件，并设置CAPTION属性分别为“全选”、“全部删除”和“生成播放列表”，最后加上一个对话框控件commondialog1。控件布局如图所示。

　　然后输入代码如下：

　　Private Sub Command1_Click()

　　For i = 0 To File1.ListCount - 1

　　List1.AddItem Dir1.Path + "\" + File1.List(i)

　　Next i

　　End Sub

　　Private Sub Command2_Click()

　　List1.Clear

　　End Sub

　　Private Sub Dir1_Change()

　　File1.Pattern = Combo1.Text

　　File1.Path = Dir1.Path

　　End Sub

　　Private Sub Drive1_Change()

　　Dir1.Path = Drive1.Drive

　　End Sub

　　Private Sub Command3_Click()

　　If List1.ListCount = 0 Then

　　MsgBox ("NO files selected!"), vbCritical

　　Exit Sub

　　End If

　　CommonDialog1.ShowSave

　　Open CommonDialog1.FileName For Output As #1

　　For i = 0 To List1.ListCount - 1

　　Print #1, List1.List(i)

　　Next i

　　Close (1)

　　End Sub

　　Private Sub File1_Click()

　　List1.AddItem Dir1.Path + "\" + File1.FileName

　　End Sub

　　Private Sub Form_Load()

　　Combo1.AddItem "*.MP3"

　　Combo1.AddItem "*.*"

　　Combo1.AddItem "*.MID"

　　Combo1.AddItem "*.AVI"

　　Combo1.AddItem "*.MPG"

　　Combo1.AddItem "*.MOV"

　　Combo1.AddItem "*.DAT"

　　Combo1.Text = "*.mp3"

　　File1.Pattern = Combo1.Text

　　CommonDialog1.Filter = "play List File(*.M3U)|*.M3U"

　　CommonDialog1.FileName = "play list"

　　End Sub

　　按F5键运行一下吧，首先选择自己喜欢的音乐文件，文件类型除了MP3还可以是*.MID、*.AVI、*.MPG、*.MOV、*.DAT等形式，最后点击一个“生成播放列表”就一切OK了。双击一下M3U文件，效果是不是一样？这样你以后就不需要打开Winamp和什么插件也可以制作出MP3播放列表了。本程序在Win98 SE和VB6.0企业版、Winamp 2.81下调试通过。