日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

用VB完成隊列播放MP3

用VB完成隊列播放MP3

更新時間:2022-05-14 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

   隊列播放MP3就是在文件列表框中一次選擇多個MP3文件,讓播放程序順序地播放選擇的MP3文件。這是一般的MP3播放器都有的功能,如何在VB程序設(shè)計中來實現(xiàn)隊列播放MP3的方法呢?

  首先介紹一下程序中要用到的MediaPlayer控件。它不是VB的標(biāo)準(zhǔn)控件,而是Windows操作系統(tǒng)自帶的一個多媒體控件。大家可以在VB開發(fā)環(huán)境中的單擊“工程”→“部件”對話框中,添加MediaPlayer控件。如果要播放MP3,則至少要6.01以上版本的MediaPlayer控件(Windows98中自帶的就是這個版本)。如果在部件對話框中找不到MicroSoft Mediaplayer Control,那可能是你沒有安裝附件所致,這需要在系統(tǒng)中安裝相應(yīng)的附件。

  正因為使用了Windows自帶的控件,所以編出的程序的可移植性很好,更為重要的是,MediaPlayer控件可以播放包括AVI、MOV、WAV、MPG、MP3、M3U、QT等等在內(nèi)的28種多媒體視頻、音頻格式的文件,可謂功能強大。

  這個程序正是利用了MediaPlayer控件可以播放MP3和M3U文件的特性來實現(xiàn)隊列播放MP3的。我再說一下M3U文件,這種文件實際上是ASCII碼文件,如果你用記事本打開它,就可以發(fā)現(xiàn)文件的內(nèi)容實際上就是多媒體文件的地址列表,能夠播放它的程序會順序播放文件里列出的多媒體文件。

  下面就是程序的實現(xiàn)步驟:

  首先建立一個新窗體Form1,添加DriveListBox,DirListBox,F(xiàn)ileListBox各一個,Caption屬性分別設(shè)為Drive1,Dir1和File1,再添加CommandButton以及MediaPlayer控件各一個。然后編寫代碼如下:

     Option Explicit
  Private Sub Command1_Click()
   Dim num As Integer
   Dim filename As String
   Dim filenum As Integer
   Dim i As Integer
   num=File1.ListCount
   filenum=FreeFile
   Open ″C:\filelist.m3u″ For Output As #filenum
   For i=0 To num-1
    If File1.Selected(i) Then
     filename=File1.Path+″\″+File1.List(i)
    End If
    Print #filenum,filename
   Next
   Close #filenum
   MediaPlayer1.filename=″C:\filelist.m3u″
  End Sub

  Private Sub Dir1_Change()
   File1.Path=Dir1.Path
  End Sub

  Private Sub Drive1_Change()
   Dir1.Path=Drive1.Drive
  End Sub
  

  程序在Win98系統(tǒng)中調(diào)試通過。使用的時候只要選好MP3歌曲所在的文件夾,在文件框中用Shift或Ctrl鍵選擇多個文件即可實現(xiàn)隊列播放。

  怎么樣,快去編寫自己的WinAmp吧。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: 欧美手机手机在线视频一区 | 久久久国产99久久国产久 | 手机在线中文字幕乱码免费 | 欧美黑人c黑人做人爱视频 欧美黑人巨大videos极品 | 欧美精品成人久久网站 | 在线视频一区二区三区 | 日韩精品亚洲一级在线观看 | 亚洲国产中文在线 | 久久综合精品不卡一区二区 | 精品久久久久久综合网 | 国产在线精品视频 | 久草最新在线 | 国产精品成人69xxx免费视频 | 久久精品视频在线观看榴莲视频 | 久久久免费观成人影院 | 狠狠色噜噜狠狠狠 | 日本在线视频二区 | 中文字幕51精品乱码在线 | 99热久久国产精品免费观看 | 超级碰碰97 | 久久香蕉国产线看观看亚洲卡 | 啪啪欧美| 亚洲成aⅴ人片在线观 | 嫩草网 | 久久久久久久久久免费视频 | 在线日韩中文字幕 | 久久婷婷在线 | 美女网站全黄 | 成人亚洲欧美日韩中文字幕 | 精品欧美一区二区精品久久 | 亚洲精品久久久久综合中文字幕 | 国产精品福利在线观看免费不卡 | 国产鲁鲁视频在线观看免费 | 亚洲精品日本 | 狠狠色噜狠狠狠狠 | 啪啪综合网 | 91秦先生 | 一级仑乱免费视频 | 久久精品一区二区免费看 | 亚洲综合国产一区在线 | 日韩久久精品 |