vb 載入自己目錄的音樂

 

要在任何機器上都能播放，需要把那首歌通過資源文件, 加入你的EXE文件裏. 運行時釋放臨時文件, 關閉前刪除臨時文件. 

工具 => VB資源編輯器 => "添加自定義資源"按鈕(倒數第二) => 選擇你要播放的歌曲 

此時 VB資源編輯器 裏有一個 "CUSTOM" 項, 其下有資源 "101". 

Dim sTempMp3Path As String 

'打開時釋放臨時文件 
Private Sub Form_Load() 
Dim bMp3() As Byte 

'自定義釋放的文件名(擴展名按原音樂的擴展名) 
sTempMp3Path = App.Path & "\temp.mp3" 

bMp3 = LoadResData(101, "CUSTOM") '讀取資源 

'釋放資源 
Open sTempMp3Path For Binary Access Write As #1 
Put #1, , bMp3 
Close #1 

End Sub 

Private Sub 音樂_Click()
WindowsMediaPlayer1.URL = sTempMp3Path 
End Sub

'關閉前刪除臨時文件 
Private Sub Form_Unload(Cancel As Integer) 
Kill sTempMp3Path 
End Sub