Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
jkrnd
164 / 54 / 11
Регистрация: 22.12.2015
Сообщений: 1,619
1

Как прервать воспроизведение звукового файла

13.03.2018, 14:26. Просмотров 738. Ответов 2
Метки нет (Все метки)

Не срабатывает функция-оболочка fnStopPlaySound

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
Const SND_ALIAS = &H10000       ' Воспроизведение звуков Windows,определенных в WIN.INI или в реестре (напр. SystemStart, Asterisk, и т.д.).
Const SND_ASYNC = &H1           ' Асинхронное воспроизведение.
Const SND_FILENAME = &H20000    ' Запуск указанного файла.
Const SND_LOOP = &H8            ' Циклическое воспроизведение до следующего вызова sndPlaySound lpszSoundName = "". Можно также использовать SND_ASYNC.
Const SND_NODEFAULT = &H2       ' Не запускать звук по умолчанию Windows, если указанный звук не может быть найден.
Const SND_NOSTOP = &H10         ' Не прекращать воспроизведение любого запущенного звука.
Const SND_NOWAIT = &H2000       ' Не ждать,если драйвер занят.
Const SND_SYNC = &H0            ' Синхронное воспроизведение(значение по умолчанию). Ждать, пока звук не закончил играть перед продолжающимся выполнением программы.
 
 
Public Function fnPlaySound(sPath As String) As Boolean
    fnPlaySound = PlaySound(sPath, ByVal 0&, SND_ASYNC Or SND_NODEFAULT)
End Function
Public Function fnStopPlaySound() As Boolean
    PlaySound 0&, 0&, SND_NODEFAULT
End Function
а должна!?
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.03.2018, 14:26
Ответы с готовыми решениями:

Воспроизведение звукового сигнала через определенные промежутки времени
Понятия не имею как это делать( помогёте? В общем, суть программы такова: ...

Регулирование громкости звукового файла
В ресурсы помещён звуковой *.wav-файл. При помощи функции sndPlaySound из...

Сделать зацикливание воспроизведения звукового файла
Здравствуйте! Работаю в Visual Basic 6. Работая со звуком столкнулся с...

Как прервать блок for ?
Как прервать блок for для продолжения (типа сишного continue) Если можете,...

Как прервать выполнение процедуры?
Есть четыре процедуры, вызывающие одна другую. Они читают аксесовскую базу и...

2
CRIDEL
39 / 39 / 9
Регистрация: 03.05.2013
Сообщений: 274
13.03.2018, 15:08 2
Лучший ответ Сообщение было отмечено jkrnd как решение

Решение

попробуй так:

PlaySound 0&, 0&, &H1
1
jkrnd
164 / 54 / 11
Регистрация: 22.12.2015
Сообщений: 1,619
13.03.2018, 16:10  [ТС] 3
CRIDEL, Попробовал. Проигрывание не останавливается.

Добавлено через 40 минут
Заработало следующим образом:
Visual Basic
1
2
3
4
Public Sub StopPlaySound()
    Dim s As String
    PlaySound s, ByVal 0&, SND_PURGE
End Sub
Добавлено через 1 минуту
Можно и так
Visual Basic
1
PlaySound s, ByVal 0&, 0
но не сработает если написать так:
Visual Basic
1
PlaySound "", ByVal 0&, 0
Добавлено через 1 минуту
то есть первый параметр - неициализированный указатель на пустую строку!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.03.2018, 16:10

Как прервать процесс по кнопке в форме?
ЕСТЬ ФОРМА В НЕЙ ДВЕ КНОПКИ ПЕРВАЯ ЗАПУСКАЕТ ЦИКЛ ПО ПЕРЕБОРУ ЗАПИСЕЙ В ТАБЛИЦЕ...

Как прервать остановить выполнение функции
помогите остановить выполнение функции вот код Option Explicit Dim fso As...

Как прервать выполнение процедуры или функции
Имеется примерно такой код: On Error GoTo MainErr MkDir "С:\A" MainErr: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru