Проигрываем файл в формате *.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)

Обсудить статью на форуме

Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Проигрываем файл в формате *.mid", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!