用MMControl控件播放M3U文件的实现
日期:2007年5月1日 作者: 查看:[大字体 中字体 小字体]-
在以前,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] 下一页
-
- 用MMControl控件播放M3U文件的实现 相关文章:
- ·用MMControl控件播放M3U文件的实现
- 用MMControl控件播放M3U文件的实现 相关软件
- 特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源:http://www.hackhome.com
上一篇:验证Windows密码
精品推荐
热点TOP10
- ·VB表格控件总览与例程分析
- ·VB+Access设计图书管理系统
- ·用VB6.0制作画图板
- ·给VB控件PictureBox加滚动条的方法
- ·VB编程之路-如何让界面美化
- ·用MsFlexGrid控件显示数据库中的记录
- ·如何用VB程序来播放WAV文件
- ·CreatePolygonRgn
- ·用VB实现井字游戏
- ·利用硬盘序列号计算软件注册码
- ·串口通讯及其在VB平台下的实现
- ·VB中用Multimedia MCI控件开发多媒体应用
- ·在VFP、VB应用程序中激活鼠标功能
- ·VB.NET实现窗体图标最小化到状态栏
- ·VB 9新特性—保留与舍去了什么?
- ·VB基础学习:编码规范
- ·VB设计有语音报时和报警功能的闹钟
- ·用VB6分离出文本框的单词
- ·用VB实现Win2000用户限时登录
- ·VB应用程序中实现“查找和替换”功能
特别推荐
- ·VB表格控件总览与例程分析
- ·用VB6.0制作画图板
- ·VB打造超酷个性化菜单(六)
- ·MSHFlexGrid 控件的应用
- ·Visual Basic 控件简介
- ·利用硬盘序列号计算软件注册码
- ·计算机等级考试二级VB常用算法:排序
- ·用diskid.dll和disk32.dll获得硬盘序列号
- ·VB6中使用Winsock穿越各种代理的实现
- ·在VFP、VB应用程序中激活鼠标功能
- ·vb基础(打印问题)
- ·想用就用,VB基础代码
- ·运用多媒体WAV文件格式二三例
- ·VB基础学习:编码规范
- ·VB实现程序的隐形
- ·使用.NET Framework从VB6中访问事件日志
- ·怎样把VC++代码转换成VB代码
- ·如何用VB程序来播放WAV文件
- ·VB 实用函数集
- ·用VB制作RM压缩软件
