[算表] VBA 音效問題

作者: JointBank (噓~ 不要問!)   2016-02-03 02:04:30
軟體:EXCEL
版本:2013
使用巨集當達成條件時播放音效
Private Declare Function PlayWaveSound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub sound()
Dim soundName As String
soundName = "C:\WINDOWS\Media\Windows 燦爛.wav"
'指定音效檔
PlayWaveSound soundName, 0
End Sub
以上是語法 雖然會發出聲音 但永遠是出現
C:\WINDOWS\Media\Windows 叮咚.wav
這個聲音
無論語法路徑如何修改音效都不會跟著變
作者: soyoso (我是耀宗)   2016-02-03 07:04:00
http://imgur.com/4FuTZwX 測試c:\windows\media內的檔名可撥放指定的音效
作者: JointBank (噓~ 不要問!)   2016-02-03 11:35:00
語法一樣所以是系統本身關係嘛 ==
作者: soyoso (我是耀宗)   2016-02-03 11:55:00
請問原po的c:\windows\media內有windows 燦爛.wav,這個音效檔嗎?測試原文時因本身無Windows 燦爛.wav這個音效檔而撥放出來的是Windows Ding.wav這個音效檔
作者: JointBank (噓~ 不要問!)   2016-02-03 12:01:00
確認過檔名路徑無誤https://goo.gl/dQuLe0 大大可以幫我測試一下嘛?
作者: soyoso (我是耀宗)   2016-02-03 12:28:00
https://youtu.be/83mzb_k988s 測試上如有對應到時,可正確撥放到指定的音效檔再看看其他先進是否測試上有其他可能
作者: JointBank (噓~ 不要問!)   2016-02-03 12:32:00
謝謝大大 也許我換台電腦測試看看

Links booklink

Contact Us: admin [ a t ] ucptt.com