队列播放MP就是在文件列表框中一次选择多个MP文件让播放程序顺序地播放选择的MP文件这是一般的MP播放器都有的功能如何在VB程序设计中来实现队列播放MP的方法呢? 首先介绍一下程序中要用到的MediaPlayer控件它不是VB的标准控件而是Windows操作系统自带的一个多媒体控件大家可以在VB开发环境中的单击工程→部件对话框中添加MediaPlayer控件如果要播放MP则至少要以上版本的MediaPlayer控件(Windows中自带的就是这个版本)如果在部件对话框中找不到MicroSoft Mediaplayer Control那可能是你没有安装附件所致这需要在系统中安装相应的附件 正因为使用了Windows自带的控件所以编出的程序的可移植性很好更为重要的是MediaPlayer控件可以播放包括AVIMOVWAVMPGMPMUQT等等在内的种多媒体视频音频格式的文件可谓功能强大 这个程序正是利用了MediaPlayer控件可以播放MP和MU文件的特性来实现队列播放MP的我再说一下MU文件这种文件实际上是ASCII码文件如果你用记事本打开它就可以发现文件的内容实际上就是多媒体文件的地址列表能够播放它的程序会顺序播放文件里列出的多媒体文件 下面就是程序的实现步骤 首先建立一个新窗体Form添加DriveListBoxDirListBoxFileListBox各一个Caption属性分别设为DriveDir和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=FileListCount filenum=FreeFile Open ″C:\filelistmu″ For Output As #filenum For i= To num If FileSelected(i) Then filename=FilePath+″\″+FileList(i) End If Print #filenum源码天空filename Next Close #filenum MediaPlayerfilename=″C:\filelistmu″ End Sub Private Sub Dir_Change() FilePath=DirPath End Sub Private Sub Drive_Change() DirPath=DriveDrive End Sub 程序在Win系统中调试通过使用的时候只要选好MP歌曲所在的文件夹在文件框中用Shift或Ctrl键选择多个文件即可实现队列播放 怎么样快去编写自己的WinAmp吧 |