要在任何機器上都能播放,需要把那首歌通過資源文件, 加入你的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
vb 載入自己目錄的音樂
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章
24-5-18 X
Higurashi-kagome
2024-06-01 14:30:43
【dubbo】如何測試一個dubbo服務呢?
金大鑫要堅持
2024-06-01 14:29:53
kubeconfig 多個集羣配置 如何切換
kubectl config get-contexts kubectl config use-context <context-name> kubectl config current-context
hiningrise
2024-06-01 14:27:53
兩臺windowserver服務器配置Redis哨兵集羣
天才臥龍
2024-06-01 14:24:12
oidc-client.js踩坑吐槽貼
提伯斯
2024-06-01 14:23:02
微盟電商-以造數工廠爲底座的低成本自動化應用實現(一)
保軍Baojun
2024-06-01 14:20:12
Mac Brew install慢的問題
阿 軍
2024-06-01 14:18:02
Vue devDependencies 與 dependencies 能別
阿 軍
2024-06-01 14:18:02
mysql 超大大數據庫複製前可執行的加速導入的SQL
菊花茶
2024-06-01 14:14:21
css25 CSS Tables
emanlee
2024-06-01 14:13:21
css29 CSS Layout - The z-index Property
emanlee
2024-06-01 14:13:21
css28 CSS Layout - The position Property
emanlee
2024-06-01 14:13:21
css26 CSS Layout - The display Property
emanlee
2024-06-01 14:13:21
css31 CSS Layout - float and clear
emanlee
2024-06-01 14:13:21