| Вопрос: Музыка | Добавлено: 29.03.07 12:27 |
Автор вопроса:  Никита | Web-сайт: www.himera.3dn.ru | ICQ: 472468839 |
| Извените, если вопрос глупый, но как сделать так, чтоб музыка играла при запуске программы? Кроме Beep() я ничего по этому поводу не знаю. Спасибо. |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #1 | Добавлено: 29.03.07 12:55 |
|
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
'Чтобы воспроизвести файл: Private Sub Command2_Click() Call mciExecute("play 1.wav"  'Проигрываем файл 1.wav, он должен находиться в той же папке, где и сама прога
End Sub Private Sub Command1_Click() Call mciExecute("play 2.mid"
End Sub Private Sub Command3_Click() 'Чтобы прекратить воспроизведение Call mciExecute("Stop 2.mid"
End Sub |
||
|
Номер ответа: 2 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #2 | Добавлено: 29.03.07 13:02 |
|
Вот тебе MP-3
Private Declare Function mciExecute Lib "winmm.dll" _
 ByVal lpstrCommand As String) As Long
Private Sub Command1_Click() lpstrCommand = "Stop " & "gershvin.mp3" Call mciExecute(lpstrCommand) End Sub Private Sub Command2_Click() lpstrCommand = "Play " & "gershvin.mp3" Call mciExecute(lpstrCommand) End Sub Private Sub Form_Load() lpstrCommand = "Play " & "gershvin.mp3" Call mciExecute(lpstrCommand) End Sub незабудь только положить в папку с программой файл gershvin.mp3 или какой у тебя есть. |
||
|
Номер ответа: 3 Автор ответа: Visual Basic .NET 2005 Пиратская версияВопросов: 38 Ответов: 190 |
Web-сайт: Профиль | | #3 | Добавлено: 29.03.07 13:03 |
| Есть другая АПИ-шка ищи в MSDN, там выбор шире - можно проигрывать, перематывать, и т.п. Уже месяц как в бейсике не пишу, а с музыкой сталкивался только один раз - напоминание при старте виндовс о регистрации программы - Форма + Звук | ||
|
Номер ответа: 4 Автор ответа: Visual Basic .NET 2005 Пиратская версияВопросов: 38 Ответов: 190 |
Web-сайт: Профиль | | #4 | Добавлено: 29.03.07 13:04 |
| Боцман опередил на минуту. | ||
|
Номер ответа: 5 Автор ответа:  Никита ICQ: 472468839 Вопросов: 2 Ответов: 2 |
Web-сайт: Профиль | | #5 | Добавлено: 29.03.07 13:29 |
| Спасибо большое! | ||
Страница: 1 |