熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

用VB實現隊列播放MP3

2013-11-13 09:52:25  來源: .NET編程 

  隊列播放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
  • 上一篇文章:

  • 下一篇文章:
  • 推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.