Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/VBA как остановить воспроизведение файла - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA как остановить воспроизведение файла (Макросы/Sub)
VBA как остановить воспроизведение файла
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]


Не судите строго новичка.....
 
Ответить
СообщениеДобрый день.
Бьюсь не один день.
Запускаю файл 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]

Автор - octopus
Дата добавления - 26.08.2016 в 11:17
Hugo Дата: Пятница, 26.08.2016, 12:45 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2671
Репутация: 599 ±
Замечаний: 0% ±

[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 R418926282008 Z422237915069
 
Ответить
Сообщение[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]

Автор - Hugo
Дата добавления - 26.08.2016 в 12:45
octopus Дата: Пятница, 26.08.2016, 14:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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


Не судите строго новичка.....
 
Ответить
СообщениеСпасибо, большое! Так просто!

Автор - octopus
Дата добавления - 26.08.2016 в 14:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » VBA как остановить воспроизведение файла (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!