用VB做個(gè)音樂播放器？1.如何加載WindowsMediaPlayer，控件：在VB6.0D的菜單欄找到“工程”——“部件”，在彈出的菜單中，拉動(dòng)滾動(dòng)條找到WindowsMediaPlayer，將其前

用VB做個(gè)音樂播放器？

1.如何加載WindowsMediaPlayer，控件：在VB6.0D的菜單欄找到“工程”——“部件”，在彈出的菜單中，拉動(dòng)滾動(dòng)條找到WindowsMediaPlayer，將其前面的復(fù)選框選中，點(diǎn)擊“應(yīng)用”“確定”即可，然后你就會(huì)在你的的控件欄中看到WindowsMediaPlayer控件了。2.如何播放音樂文件只需要將WindowsMediaPlayer1.URL賦相應(yīng)的值即可。例如要在窗體加載時(shí)播放music.mp3這個(gè)文件，只要這樣寫代碼。Private Sub Form_Load()WindowsMediaPlayer1.URL = VB.App.Path & "music.mp3"End Sub注意：其中的music.mp3是一個(gè)相對(duì)路徑表示當(dāng)前目錄下的文件，即你的工程所保存的位置。3.如何暫停播放在command按鈕中加入如下代碼，即可實(shí)現(xiàn)。Private Sub Command4_Click()WindowsMediaPlayer1.Controls.pauseEnd Sub4.如何在暫停播放之后繼續(xù)播放在command按鈕中加入如下代碼，即可實(shí)現(xiàn)。Private Sub Command3_Click()WindowsMediaPlayer1.Controls.playEnd Sub如果想實(shí)現(xiàn)音樂從頭播放，只需要將第二條中播放音樂中代碼再寫一遍即可。Private Sub Command5_Click()WindowsMediaPlayer1.URL = VB.App.Path & "music.mp3"End Sub5.停止播放的音樂（關(guān)閉播放器）在command按鈕中加入如下代碼，即可實(shí)現(xiàn)。Private Sub Command1_Click()WindowsMediaPlayer1.CloseEnd Sub ----------------------------------------------簡(jiǎn)單的話 一句話Private Sub File1_DblClick()WindowsMediaPlayer1.URL = File1.Path & "" & File1.List(File1.ListIndex)End Sub