|
|
Запустить звук через VBA |
|
Как запустить звуковой файл стандартными средствами windows, чтобы поверх окна Genesis32 не появлялись никакие плееры? Можно ли показать VBA скрипт, чтобы звук, например tada.wav из стандартных звуков Windows однократно воспроизводился при нажатии на кнопку. Или при событии (изменении переменной Alarm)? Спасибо. |
|
 |
|
|
тоже этот вопрос интересует
|
|
|
|
|
Например вот так:
___ Private Declare Function PlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal strSoundName As String, ByVal lngFunction As Long) As Long Private Sub Command1_Click() PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", 1 End Sub ___ Поэкспериментируйте с различными функциями библиотеки winmm.dll
|
|
|
|
|
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Sub PlaySound(ByVal FullFileName As String) If Application.CanPlaySounds Then 'Substitute the path and filename of the sound you want to play Call sndPlaySound32(FullFileName, 0) End If End Sub Sub Test() PlaySound "Windows XP - запуск.wav" End Sub Лучше обернуть вызов функции в метод модуля, что бы передавать только необходимые аргументы. Так код будет выглядет лаконичнее Вот один из наиболее больших онлайн ресурсов по API |
|
|
|
Ответить 
|
| Переход на форум | Права доступа на форуме  Вы не можете публиковать новые темы в этом форуме Вы не можете отвечать на сообщения в этом форуме Вы не можете удалять Ваши сообщения на этом форуме Вы не можете редактировать Ваши сообщения на этом форуме Вы не можете создавать голосования на этом форуме Вы не можете выражать своё мнение в голосованиях на этом форуме |
