隊列播放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吧
From:http://tw.wingwit.com/Article/program/net/201311/11816.html
