隊列播放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
Next
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鍵選擇多個文件即可實現隊列播放
lishixinzhi/Article/program/net/201311/11816