TempDataPath = "f:\1.mp3"
TempData = LoadResData(101, "CUSTOM")
Open TempDataPath For Binary Access Write As #1(錯誤顯示在這一行!)
Put #1, , TempData
Close #1
WindowsMediaPlayer1.URL = TempDataPath '參考101檔案并暫時儲存在e盤
WindowsMediaPlayer1.Controls.stop '停止音樂播放
uj5u.com熱心網友回復:
有大佬嗎???uj5u.com熱心網友回復:
Open TempDataPath For Binary Write As #1轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/16885.html
標籤:VBA
上一篇:VBA 小活 300快 1、SQL腳本生成表結構寫到 EXL里面 ,2、EXL里面表結構生成SQL腳本
下一篇:找 課 堂
