| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > VB6 > Звук |
| Автор: Masas 13.4.2007, 15:19 |
| Как воспроизводить звуки принажатии на кнопкуб или при выполнении загрузки? |
| Автор: mihanik 13.4.2007, 15:59 |
| Полное описание в прикреплённом файле. Читай!!! Там всё очень понятно и с примерами. Одно "но". По-английски... |
| Автор: Masas 14.4.2007, 12:30 |
| Меня эт нискока несмущает) спасибо |
| Автор: AndreyK 17.4.2007, 18:09 |
| Посмотрел файл... это ,насколько я понял, какой-то элемент управления (музыку слушать). Если надо просто звук изобразить то можно просто при помощи API: Обьявить в модуле функции: Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ (lpszSoundName As Any, ByVal uFlags As Long) As Long Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Global Const SND_ASYNC = &H1 ' Play asynchronously Global Const SND_NODEFAULT = &H2 ' Don't use default sound Global Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file Global Const SND_FILENAME = &H20000 Global SoundBuffer() As Byte И звучать прямо с диска: PlaySound "c:\sound1.wav", 0, SND_ASYNC Or SND_NODEFAULT Or SND_FILENAME или из ресурса: SoundBuffer = LoadResData(16, "WAVE") sndPlaySound SoundBuffer(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY |