用VB实现队列播放MP3
时间： 2021-07-31 作者：daque
部队播放mp3即是在文献列表框中一次采用多个mp3文献，让播放步调程序地播放采用的mp3文献。这是普遍的mp3播放器都有的功效，怎样在vb步调安排中来实行部队播放mp3的本领呢？ 开始引见一下步调中要用到的mediaplayer控件。它不是vb的规范控件，而是windows操纵体例自带的一个多媒介控件。大师不妨在vb开拓情况中的单击“工程”→“元件”对话框中，增添mediaplayer控件。即使要播放mp3，则起码要6.01之上本子的mediaplayer控件(windows9第88中学自带的即是这个本子)。即使在元件对话框中找不到microsoft mediaplayer control，那大概是你没有安置附属类小部件所致，这须要在体例中安置相映的附属类小部件。 正由于运用了windows自带的控件，以是编出的步调的可移植性很好，更为要害的是，mediaplayer控件不妨播放囊括avi、mov、wav、mpg、mp3、m3u、qt之类在前的28种多媒介视频、音频方法的文献，堪称功效宏大。 这个步调恰是运用了mediaplayer控件不妨播放mp3和m3u文献的个性来实行部队播放mp3的。我再说一下m3u文献，这种文献本质上是ascii码文献，即使你用登记本翻开它，就不妨创造文献的实质本质上即是多媒介文献的地方列表，不妨播放它的步调会程序播放文献里列出的多媒介文献。 底下即是步调的实行办法： 开始创造一个新窗体form1，增添drivelistbox，dirlistbox，filelistbox各一个，caption属性辨别设为drive1，dir1和file1，再增添commandbutton以及mediaplayer控件各一个。而后编写代码如次： option explicit private sub command1_click() dim num as integer dim filename as string dim filenum as integer dim i as integer num=file1.listcount filenum=freefile open ″c:\filelist.m3u″ for output as ＃filenum for i=0 to num－1 if file1.selected(i) then filename=file1.path＋″\″＋file1.list(i) end if print ＃filenum，filename next close ＃filenum mediaplayer1.filename=″c:\filelist.m3u″ end sub private sub dir1_change() file1.path=dir1.path end sub private sub drive1_change() dir1.path=drive1.drive end sub 步调在win98体例中调节和测试经过。运用的功夫只有选好mp3歌曲地方的文献夹，在文献框顶用shift或ctrl键采用多个文献即可实行部队播放。 如何样，快去编写本人的winamp吧。
相关推荐
热门阅览
最新排行
- 1 手机如何装windows系统，手机装windows系统教程
- 2 微信公众号重大调整 新公注册公众号将没有留言功能
- 3 烧杯app最剧烈的反应有哪些？ 烧杯app攻略
- 4 微信小程序怎么用 微信小程序使用教程
- 5 360快剪辑怎么使用？360快剪辑图文视频教程
- 6 八分音符外挂神器：绝望中的战斗机
- 7 2017热门微信小程序排行榜 微信小程序二维码大全
- 8 微信聊天记录导出到电脑 怎么在电脑上查看微信聊天记录
- 9 在U递上赚钱和省钱教程 教你在U递上怎么赚钱何省钱
- 10 u递邀请码申请教程 u递邀请码领取方法
- 11 如何解决爱奇艺账号登陆验证 跳过爱奇艺账号手机登录验证方法分享 亲测好用
- 12 手机申请无限制申请QQ靓号 手机怎样无限申请Q号