[算表] 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