![]() |
|
Модераторы: Akina |
![]()
|
|
| Masas |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 63 Регистрация: 21.8.2006 Репутация: нет Всего: нет |
Как воспроизводить звуки принажатии на кнопкуб или при выполнении загрузки?
|
|||
|
||||
| mihanik |
|
|||
![]() -=Белый Медведь=- ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 4054 Регистрация: 24.4.2006 Где: г. Тверь Репутация: 11 Всего: 109 |
Полное описание в прикреплённом файле.
Читай!!! Там всё очень понятно и с примерами. Одно "но". По-английски... Присоединённый файл ( Кол-во скачиваний: 9 )
appx_c.rar 658,28 Kb |
|||
|
||||
| Masas |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 63 Регистрация: 21.8.2006 Репутация: нет Всего: нет |
Меня эт нискока несмущает) спасибо
|
|||
|
||||
| AndreyK |
|
|||
|
Шустрый ![]() Профиль Группа: Участник Сообщений: 102 Регистрация: 15.3.2007 Репутация: нет Всего: нет |
Посмотрел файл... это ,насколько я понял, какой-то элемент управления (музыку слушать).
Если надо просто звук изобразить то можно просто при помощи 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 Это сообщение отредактировал(а) AndreyK - 17.4.2007, 18:14 |
|||
|
||||
![]()
|
| Правила форума "VB6" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | VB6 | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |