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

用VB做個音樂播放器？

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按鈕中加入如下代碼，即可實現(xiàn)。Private Sub Command4_Click()WindowsMediaPlayer1.Controls.pauseEnd Sub4.如何在暫停播放之后繼續(xù)播放在command按鈕中加入如下代碼，即可實現(xiàn)。Private Sub Command3_Click()WindowsMediaPlayer1.Controls.playEnd Sub如果想實現(xiàn)音樂從頭播放，只需要將第二條中播放音樂中代碼再寫一遍即可。Private Sub Command5_Click()WindowsMediaPlayer1.URL = VB.App.Path & "music.mp3"End Sub5.停止播放的音樂（關閉播放器）在command按鈕中加入如下代碼，即可實現(xiàn)。Private Sub Command1_Click()WindowsMediaPlayer1.CloseEnd Sub ----------------------------------------------簡單的話 一句話Private Sub File1_DblClick()WindowsMediaPlayer1.URL = File1.Path & "" & File1.List(File1.ListIndex)End Sub