Проигрывание музыки

В этой статье я расскажу вам как проигрывать музыкальные файлы различных форматов, а именно *.mp3, *.mid и *.wav.

1. Проигрываем файл в формате *.mp3:

'Функция для проигрывания файлов в формате *.mp3

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

'чтобы воспроизвести файл
Call mciExecute("play имя вашего файла")

'чтобы закрыть файл
Call mciExecute("close имя вашего файла")

2. Проигрываем файл в формате *.mid:

'Функция для проигрывания файлов в формате *.mid

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uRetrunLength As Long, ByVal hwndCallback As Long) As Long

'Открываем файл

Call mciSendString ("open ИМЯ ВАШЕГО ФАЙЛА type sequencer alias passport", 0, 0,0)

'Проигрываем файл

Call micSendString ("play passport", 0, 0, 0)

'Останавливаем файл

Call micSendString ("stop passport", 0, 0, 0)

3. Проигрываем файл в формате *.wav:

Функция для проигрывания файлов в формате *.wav

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'Проигрываем файл

Call sndPlaySound("ИМЯ ВАШЕГО ФАЙЛА", 0)