На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
Дорогие друзья! Поздравляем вас с днём Победы!
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Странная работа PlaySoundA
    Win10. В дизайнере звук не проигрывается, в exe проигрывается. Некоторые wav-файлы вообще нигде не проигрываются, но при клике на них в проводнике запускается станд. проигрыватель Винды и всё звучит (не могу вложить из-за ограничений, файл не сжимается, ~2.5МБ).

    ExpandedWrap disabled
      Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
      Public Const SND_ASYNC = 1
      Public Const SND_NOSTOP = &H10
      Public Const SND_NOWAIT = &H2000


    Тест (не проигрывается в дизайнере, играет в exe):
    ExpandedWrap disabled
      Dim lRet As Long, sPath As String
          sPath = "E:\Temp\Музыка\err.wav"
          lRet = PlaySound(sPath, 0, SND_ASYNC Or SND_NOWAIT)
          If lRet <> 0 Then
           MsgBox "Звук проигрывается!"
          End If


    Добавлено
    wav-file https://ru.files.fm/u/qxqp8yz6
    Сообщение отредактировано: BlackSun -
      Оoooooчень длинный mp3, завернутый в wav контейнер. Playsound такое не любит. Используйте mciSendString например.
        Какая PlaySoundA разница?
          Почему-то разница есть.
          Сообщение отредактировано: Prince -
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0198 ]   [ 16 queries used ]   [ Generated: 9.05.24, 11:58 GMT ]