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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA как остановить воспроизведение файла (Макросы/Sub)

octopus

Дата: Пятница, 26.08.2016, 11:17 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Добрый день.
Бьюсь не один день.
Запускаю файл 3.wav при открытии формы.
Не понимаю как остановить воспроизведение программно.
Все действия программы уже закончились, а файл все проигрывается.

[vba]

Код

Option Explicit
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_ASYNC = &H1
Const SND_FILENAME = &H20000

Sub Музыка()
Dim WAVFile As String
WAVFile = ThisWorkbook.Path & "\3.wav"
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

[/vba]

Не судите строго новичка.....

Ответить

Hugo

Дата: Пятница, 26.08.2016, 12:45 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3252

Репутация: 707 ±

Замечаний: 0% ±

2019

[vba]

Код

А как можно остановить проигрывающийся файл?

==
ZVI:

Private Declare Function sndPlaySound _
Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszName As String, ByVal dwFlags As Long) As Long

Sub PlaySound()
Dim WAVFile
WAVFile = "0207.wav"
WAVFile = ThisWorkbook.Path & "\" & WAVFile
Call sndPlaySound(WAVFile, 1)
End Sub

Sub StopSound()
Call sndPlaySound("", 4)
End Sub
==

[/vba]

excel@nxt.ru
webmoney: E265281470651 Z422237915069

Ответить

octopus

Дата: Пятница, 26.08.2016, 14:34 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 8

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Спасибо, большое! Так просто!

Не судите строго новичка.....

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA как остановить воспроизведение файла (Макросы/Sub)

Страница 1 из 1
1