用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 '否则播放前一首
  
• [1] [2] [3] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 用MMControl控件播放M3U文件的实现 相关文章：
• ·用MMControl控件播放M3U文件的实现
• 用MMControl控件播放M3U文件的实现 相关软件

上一篇:验证Windows密码

下一篇:半透明窗体(win2000特有API)

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐