VB WindowsMediaPlaye 控件詳細用法

jztgwq 2012-12-31

展開全文

VB WindowsMediaPlaye 控件詳細用法

1.如何加載WindowsMediaPlayer,，控件：
在VB6.0D的菜單欄找到“工程”——“部件”，在彈出的菜單中,，拉動滾動條找到WindowsMediaPlayer,，將其前面的復(fù)選框選中,，點擊“應(yīng)用”“確定”即可，然后你就會在你的的控件欄中看到WindowsMediaPlayer控件了,。

2.如何播放音樂文件
只需要將WindowsMediaPlayer1.URL賦相應(yīng)的值即可,。
例如要在窗體加載時播放music.mp3這個文件，只要這樣寫代碼,。
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub
注意：其中的\music.mp3是一個相對路徑表示當前目錄下的文件,，即你的工程所保存的位置，要事先保存進去,。若想播放網(wǎng)絡(luò)上的歌曲則可以通過下面語句來實現(xiàn)WindowsMediaPlayer1.URL = "http://www./70.80/05.太陽的眼淚.mp3"
,。

3.如何暫停播放
在command按鈕中加入如下代碼，即可實現(xiàn),。
Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.pause
End Sub

4.如何在暫停播放之后繼續(xù)播放
在command按鈕中加入如下代碼,，即可實現(xiàn)。
Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.play
End Sub
如果想實現(xiàn)音樂從頭播放,，只需要將第二條中播放音樂中代碼再寫一遍即可,。
Private Sub Command5_Click()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub

5.停止播放的音樂（關(guān)閉播放器）
在command按鈕中加入如下代碼，即可實現(xiàn),。
Private Sub Command1_Click()
WindowsMediaPlayer1.Close
End Sub

其實在windowsmediaplayer控件上就有暫停,、繼續(xù)、停止功能的按鈕,，不過為了學習嘛,，呵呵

需要特別強調(diào)的是WindowsMediaPlayer控件是調(diào)用你本機的WindowsMediaPlayer播放器，而 WindowsMediaPlayer的默認支持的播放格式為WMA和asf,，所以為了你編寫的程序的通用性，最好音樂文件的格式選擇WMA的或者ASF 的,。

-------------------------------------------------------------------------------------------------------------

1,，有一個ListBOX控件，上面有多個AVI視頻文件或者音樂文件
2,，通過上下移動按鈕,，切換視頻文件，如何實現(xiàn)視頻文件的預(yù)覽,？

'將ListBOX控件的MultiSelect屬性設(shè)置為單選(運行時不能設(shè)置,，只能在設(shè)計時設(shè)置好)
'事先在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