用Windows media player 控制元件。

1，有一個ListBOX控制元件，上面有多個AVI影片檔案或者音樂檔案

2，透過上下移動按鈕，切換影片檔案，如何實現影片檔案的預覽？

'將ListBOX控制元件的MultiSelect屬性設定為單選(執行時不能設定，只能在設計時設定好)

'事先在ListBOX控制元件中選中一個檔案並開始播放

private sub List1_click()

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play '播放當前選擇的檔案

end sub

private sub UpPlay_click()'單擊向上按鈕

WindowsMediaPlayer1.controls.pause

WindowsMediaPlayer1.controls.stop

List1.Selected(List1.ListIndex-1)=true

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play '播放上一個檔案

end sub

private sub DownPlay_click()'單擊向下按鈕

WindowsMediaPlayer1.controls.pause

WindowsMediaPlayer1.controls.stop

List1.Selected(List1.ListIndex+1)=true

WindowsMediaPlayer1.URL=List1.List(List1.ListIndex)

WindowsMediaPlayer1.controls.play '播放下一個檔案

end sub

***********************************************************************************

1.如何載入WindowsMediaPlayer，控制元件：

在VB6.0D的選單欄找到“工程”——“部件”，在彈出的選單中，拉動捲軸找到WindowsMediaPlayer，將其前面的複選框選中，點選“應用”“確定”即可，然後你就會在你的的控制元件欄中看到WindowsMediaPlayer控制元件了。

2.如何播放音樂檔案

只需要將WindowsMediaPlayer1.URL賦相應的值即可。

例如要在窗體載入時播放music.mp3這個檔案，只要這樣寫程式碼。

Private Sub Form_Load()

WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"

End Sub

注意：其中的\music.mp3是一個相對路徑表示當前目錄下的檔案，即你的工程所儲存的位置。

3.如何暫停播放

在command按鈕中加入如下程式碼，即可實現。

Private Sub Command4_Click()

WindowsMediaPlayer1.Controls.pause

End Sub

4.如何在暫停播放之後繼續播放

在command按鈕中加入如下程式碼，即可實現。

Private Sub Command3_Click()

WindowsMediaPlayer1.Controls.play

End Sub

如果想實現音樂從頭播放，只需要將第二條中播放音樂中程式碼再寫一遍即可。

Private Sub Command5_Click()

WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"

End Sub

5.停止播放的音樂（關閉播放器）

在command按鈕中加入如下程式碼，即可實現。

Private Sub Command1_Click()

WindowsMediaPlayer1.Close

End Sub

需要特別強調的是WindowsMediaPlayer控制元件是呼叫你本機的WindowsMediaPlayer播放器，而WindowsMediaPlayer的預設支援的播放格式為WMA和asf，所以為了你編寫的程式的通用性，最好音樂檔案的格式選擇WMA的或者ASF的。

windows media player 控制元件的常用屬性及方法

屬性/方法 說明

URL:String; 指定媒體位置，本機或網路地址

uiMode:String; 播放器介面模式，可為Full, Mini, None, Invisible

playState:integer; 播放狀態，1=停止，2=暫停，3=播放，6=正在緩衝，9=正在連線，10= 準備就緒

enableContextMenu:Boolean; 啟用/禁用右鍵選單

fullScreen:boolean; 是否全屏顯示

[controls] wmp.controls 播放器基本控制

controls.play; 播放

controls.pause; 暫停

controls.stop; 停止

controls.currentPosition:double; 當前進度

controls.currentPositionString:string; 當前進度，字串格式。如“00:23”

controls.fastForward; 快進

controls.fastReverse; 快退

controls.next; 下一曲

controls.previous; 上一曲

[settings] wmp.settings 播放器基本設定

settings.volume:integer; 音量，0-100

settings.autoStart:Boolean; 是否自動播放

settings.mute:Boolean; 是否靜音

settings.playCount:integer; 播放次數

[currentMedia] wmp.currentMedia 當前媒體屬性

currentMedia.duration:double; 媒體總長度

currentMedia.durationString:string; 媒體總長度，字串格式。如“03:24”

currentMedia.getItemInfo(const string); 取當前媒體資訊"Title"=媒體標題，"Author"=藝術家，"Copyright"=版權資訊，"Description"=媒體內容描述，"Duration"=持續時間（秒），"FileSize"=檔案大小，"FileType"=檔案型別，"sourceURL"=原始地址

currentMedia.setItemInfo(const string); 透過屬性名設定媒體資訊

currentMedia.name:string; 同 currentMedia.getItemInfo("Title")

[currentPlaylist] wmp.currentPlaylist //當前播放列表屬性

currentPlaylist.count:integer; 當前播放列表所包含媒體數

currentPlaylist.Item[integer]; 獲取或設定指定專案媒體資訊，其子屬性同wmp.currentMedia

1、首先我們開始就要右擊工具面板並在部件新增窗口裡選擇“Windows MediaPlayer”來新增這個控制元件，同時還要新增“CommonDialog”控制元件。
　 2.在視窗設計器中建立一個MediaPlayer控制元件、五個Command Button控制元件和一個CommonDialog控制元件。
　 3、將Form1的Caption屬性更改為“小叮噹的媒體播放器”。
　　4、分別將五個Command Button控制元件的Caption屬性分別命名為“暫停”、“播放”、“停止”、“選擇”和“退出”，然後把它們按照一定的位置放好。

　　5、選中CommonDialog控制元件之後，在右邊屬性的“Filter”對話方塊中輸入“WAV（*.wav）|*.wav|MIDI（*.mid）|*.mid|MPEG（*.mpeg）|*.mpeg|DAT（*.dat）|*.dat|AVI（*.avi）|*.avi|MP3（*.mp3）|*.mp3”的檔案過濾選項，這樣就可以支援各種常見的媒體影像檔案了。