Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
GSerg
-
- Шаман

-
-
- Сообщения: 14286
- Зарегистрирован: 14.12.2002 (Сб) 5:25
- Откуда: Магадан
GSerg » 09.02.2005 (Ср) 16:04
А действительно, как...
Наверное, sndPlaySound с флагом SND_MEMORY?

Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас
-
_Hiser_
-
- Начинающий

-

-
- Сообщения: 12
- Зарегистрирован: 28.01.2005 (Пт) 11:34
- Откуда: Барнаул
_Hiser_ » 09.02.2005 (Ср) 16:13
Ты уточни, что у тебя в этом массиве находится
Если массив байтов файла WAVE то тебе нужно:
sndPlaySound, константы
SND_.
Например:
- Код: Выделить всё
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Const SND_ASYNC = &H1
Private Const SND_MEMORY = &H4
Private Buff() As Byte
Private Sub Form_Load()
sndPlaySound Buff(0), SND_ASYNC Or SND_MEMORY
End Sub
-
SeT
-
- Постоялец

-

-
- Сообщения: 362
- Зарегистрирован: 29.12.2004 (Ср) 13:11
SeT » 10.02.2005 (Чт) 16:13
Спасибо за код. Домой приду попробую, завтра скажу. Если что - рассыплюсь в благодарностях
01000100
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010
-
SeT
-
- Постоялец

-

-
- Сообщения: 362
- Зарегистрирован: 29.12.2004 (Ср) 13:11
SeT » 11.02.2005 (Пт) 13:32
Мда-а-а-а. Не работаетс. Пишет типа несовпадение типов. Подскажите ламеру, как с этим справиться.

01000100
Причиняет боль 0010
Виртуальная любовь 00100
Индустрия снов 0010
-
tyomitch
-
- Пользователь #1352

-

-
- Сообщения: 12822
- Зарегистрирован: 20.10.2002 (Вс) 17:02
- Откуда: חיפה
tyomitch » 11.02.2005 (Пт) 14:09
В коде Hiser в декларации sndPlaySound в "ByVal lpszSoundName As Any" лишний ByVal, его надо убрать.
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, SemrushBot, Yandex-бот и гости: 7