Как подзвучить событие в Вин10?
В 98-й Винде было написано так:
Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
и все подзвучки работали. Прошли годы...
Залил на 10-ку тот же модуль и получаю следующее:
Как сделать, что бы звук заработал?
Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
и все подзвучки работали. Прошли годы...
Залил на 10-ку тот же модуль и получаю следующее:
Как сделать, что бы звук заработал?
Зачем нужен вопрос, если ответ наличествует в скриншоте...
Код:
Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Если судить по ScreenShot это VBA
Тогда думаю проблема в путях приведу два примера Windows10 + Office2016
OR
Все два примера работает
Тогда думаю проблема в путях приведу два примера Windows10 + Office2016
Код:
Declare Function sndPlaySound32 _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub testsound()
sndPlaySound32 "C:\Tepmo\Windows Logon.wav", 0&
End Sub
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub testsound()
sndPlaySound32 "C:\Tepmo\Windows Logon.wav", 0&
End Sub
Код:
Declare Function sndPlaySound _
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub testsound()
sndPlaySound "C:\Tepmo\Windows Logon.wav", 0&
End Sub
Lib "winmm.dll" _
Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Sub testsound()
sndPlaySound "C:\Tepmo\Windows Logon.wav", 0&
End Sub
В догонку всЁ просто плохо
Например
Может так
Например
Код:
Sub process()
mPlay_wav WorkPath & "Sounds\bip.wav"
End Sub
mPlay_wav WorkPath & "Sounds\bip.wav"
End Sub
Код:
Sub process()
sndPlaySound mPlay_wav WorkPath & "Sounds\bip.wav", 0&
End Sub
sndPlaySound mPlay_wav WorkPath & "Sounds\bip.wav", 0&
End Sub
Если бы знать, что PtrSafe и есть ответ. Спасибо. С этим волшебным словом заработало))
Очень глупо setup Office(64-bit) сам microsoft рекумендует Office(32-bit) .
Ладно кто по взрослому и без дураков , а для "чайников за затылок 32-bit" и гемора очень меньше.
Ладно кто по взрослому и без дураков , а для "чайников за затылок 32-bit" и гемора очень меньше.