知识大全用VB实现队列播放MP3

Posted 2022-07-17 文件

篇首语：五陵年少金市东，银鞍白马渡春风。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用VB实现队列播放MP3相关的知识，希望对你有一定的参考价值。

用VB实现队列播放MP3 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　队列播放MP 就是在文件列表框中一次选择多个MP 文件让播放程序顺序地播放选择的MP 文件这是一般的MP 播放器都有的功能如何在VB程序设计中来实现队列播放MP 的方法呢？

　　首先介绍一下程序中要用到的MediaPlayer控件它不是VB的标准控件而是Windows操作系统自带的一个多媒体控件大家可以在VB开发环境中的单击工程 → 部件对话框中添加MediaPlayer控件如果要播放MP 则至少要以上版本的MediaPlayer控件（Windows 中自带的就是这个版本）如果在部件对话框中找不到MicroSoft Mediaplayer Control 那可能是你没有安装附件所致这需要在系统中安装相应的附件

　　正因为使用了Windows自带的控件所以编出的程序的可移植性很好更为重要的是 MediaPlayer控件可以播放包括AVI MOV WAV MPG MP M U QT等等在内的种多媒体视频音频格式的文件可谓功能强大

　　这个程序正是利用了MediaPlayer控件可以播放MP 和M U文件的特性来实现队列播放MP 的我再说一下M U文件这种文件实际上是ASCII码文件如果你用记事本打开它就可以发现文件的内容实际上就是多媒体文件的地址列表能够播放它的程序会顺序播放文件里列出的多媒体文件

　　下面就是程序的实现步骤

　　首先建立一个新窗体Form 添加DriveListBox DirListBox FileListBox各一个 Caption属性分别设为Drive Dir 和File 再添加CommandButton以及MediaPlayer控件各一个然后编写代码如下

　　Option Explicit

　　Private Sub Command _Click（）

　　Dim num As Integer

　　Dim filename As String

　　Dim filenum As Integer

　　Dim i As Integer

　　num=File ListCount

　　filenum=FreeFile

　　Open ″C:\\filelist m u″ For Output As #filenum

　　For i= To num

　　If File Selected（i） Then

　　filename=File Path+″\\″+File List（i）

　　End If

　　Print #filenum源码天空 filename

　　Close #filenum

　　MediaPlayer filename=″C:\\filelist m u″

　　End Sub

　　Private Sub Dir _Change（）

　　File Path=Dir Path

　　End Sub

　　Private Sub Drive _Change（）

　　Dir Path=Drive Drive

　　End Sub

　　程序在Win 系统中调试通过使用的时候只要选好MP 歌曲所在的文件夹在文件框中用Shift或Ctrl键选择多个文件即可实现队列播放

cha138/Article/program/net/201311/11816

知识大全 用VB实现队列播放MP3

知识大全用VB实现队列播放MP3