用VB制作MP3播放器---------用MMControl控件播放M3U文件的实现.docVIP

用VB制作MP3播放器---------用MMControl控件播放M3U文件的实现 用VB制作MP3播放器 ----------用MMControl控件播放M3U文件的实现 （本文章来源于网络） 在以前，VB程序员大都以为MMControl控件在应付媒体文件方面不是很争气，笔者甚至在一些颇有权威的书籍上看到在探讨完这个控件之后 建议读者：如欲编制一个能播放MP3文件的播放器，请去找相关控件。其实，这是对MMControl的误解。MMControl作为能对系统硬件进行操作和控制的控件，其功能是强大的，它对付MP3也不在话下！不信？我以前也不信——专家都这么以为嘛。可现在我信了：我在VB6.0、PWin98下试验成功！播放质量？呵呵，比Mediaplayer好不了多少。Bill的东西嘛，让人又爱又无奈…… 　　遗憾的是，MMCtrol控件不支持M3U列表文件。这得处理一下。谁叫M3u那么方便呢？ 　　我们知道，M3U其实是和TXT文件性质一样的东西，都是文本文件。M3U文件所存储的内容是一系列的媒体文件所在的二进制地址，如将M3U文件打开并把各个媒体文件所在位置的标志存入数组，就可以叫MMControl一一地播放了。考虑到资源的占用问题，笔者以下的实例将M3U文件的内容打开后添加到列表框，然后让MMControl进行处理，有兴趣的朋友可以试一下数组。 　　本例需要：按钮若干；列表框一个；Timer一个；ProgressBar(进度条)一个；老M当然不能少了。 　　详细代码如下： Option Explicit Dim MaxVal As Long 注释：进度条Max值变量 Dim MyInd As Integer 注释：播讲的文件索引变量 Dim sF As String 注释：要播放的M3U文件 Private Sub cmdNext_Click() 注释：“下一首”按钮代码 PlayNext List1.SetFocus 注释：让按钮好看点，下同 End Sub Private Sub cmdPause_Click() 注释：“暂停”按钮代码 MMControl1.Command = Pause List1.SetFocus End Sub Private Sub cmdPlay_Click() 注释：“播放”按钮代码 List1.SetFocus If MMControl1.Command = Stop Or MMControl1.Command = Pause Then MMControl1.Command = Play Else Call PlayMe 注释：交给PlayMe处理 End If End Sub Private Sub cmdExit_Click() 注释：“退出”按钮代码 MMControl1.Command = close 注释：关闭以释放资源 End End Sub Private Sub cmdPre_Click() 注释：“前一首”按钮代码 Timer1.Enabled = False List1.SetFocus If MyInd = 0 Then 注释：当前是第一首则播放最后一首 List1.ListIndex = List1.ListCount - 1 Else 注释：否则播放前一首 List1.ListIndex = MyInd - 1 End If MyInd = List1.ListIndex 注释：这个变量要记得改哟 Call PlayMe End Sub Private Sub Form_Load() 注释：程序加载 Timer1.Enabled = False Timer1.Interval = 1000 List1.BackColor = vbBlack List1.ForeColor = vbYellow MMControl1.Visible = False MyInd = 0 cmdOpen.Value = True 注释：“打开”按钮被按下 注释：OpenM3u 注释：打开M3U文件 注释：PlayMe 注释：播放 End Sub Private Sub cmdOpen_Click() 注释：“打开”按钮代码 On Error GoTo openerr: List1.Clear CommonDialog1.Filter = (*.m3u)|*.m3u 注释：这个不用说了吧 CommonDialog1.ShowOpen sF = CommonDialog1.FileName OpenM3u 注释：打开M3U文件 Exit Sub openerr: Timer1.Enabled = False 注释：出错则不能让计时器工作 注释：出错信息自己写吧 End Sub 注释：当点