| Вопрос: Звуковое меню | Добавлено: 28.09.04 01:00 |
Автор вопроса:  Sania | ICQ: 347442784 |
| Ребята подскажите пожалуйста как добавить звук в мое приложение? И если есть такое окошко типа сохранения или открытие файла но только для выбора другой мелодии. Как оно вызывается подскажите пожалуйста. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Mihalыch ICQ: 373-509-101 Вопросов: 56 Ответов: 330 |
Профиль | | #1 | Добавлено: 28.09.04 02:31 |
|
Выбрать файл можно с помощью обычного диалога, а воспроизвести файлы формата *.wav можно с помощью этой ф-ии.
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long 'фуркция проигрывания файлов *.wav Private Const SND_ASYNC = &H1 'константа заставляет функцию начать воспроизведения... и сразу же передать управление приложению Private Const SND_LOOP = &H8 'константа указывает функции, что необходимо проигрывать файл до тех пор пока не произойдет следующий вызов функции |
||
|
Номер ответа: 2 Автор ответа:  cresta Вопросов: 117 Ответов: 1538 |
Профиль | | #2 | Добавлено: 28.09.04 02:59 |
|
На тулбоксе нажми правую кнопку мыши и выбери "Компоненты". В списке компонентов найди Microsoft Common Dialog Control 6.0 и отметь его птичкой. После этого положи его на форму и набери такой код:
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_SYNC As Long = &H0 Private Sub Form_Load() CommonDialog1.Filter = "Wave (*.wav)|*.wav" CommonDialog1.ShowOpen PlaySound CommonDialog1.FileName, 0, SND_SYNC End Sub если установлен флаг SND_ASYNC, программа запустит музыку и продолжит свою работу если установлен SND_SYNC, программа до завершения музыки не будет выполнять никаких действий |
||
|
Номер ответа: 3 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #3 | Добавлено: 28.09.04 08:46 |
|
Ну а чтобы в меню добавить те звуки что уже выбрал, то тебе поможет, так называемый, сабклассинг окошка - родителя меню... Откликается на сообщения:
WM_COMMAND WM_CONTEXTMENU WM_DRAWITEM WM_ENTERMENULOOP WM_EXITMENULOOP WM_INITMENU WM_INITMENUPOPUP WM_MEASUREITEM WM_MENUCHAR WM_MENUCOMMAND WM_MENUDRAG WM_MENUGETOBJECT WM_MENURBUTTONUP WM_MENUSELECT WM_SYSCOMMAND WM_UNINITMENUPOPUP |
||
Страница: 1 |