can someone plese tell me how i can make a midi file play from clicking a command button
if you can tell me i will be happy as this is the 3rd time i have asked this question.
Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
open the midi file
i = mciSendString("open c:\music.mid type sequencer alias mid1", 0&, 0, 0)
play the midi file
i = mciSendString("play mid1", 0&, 0, 0)
If you want more explanations...Here's a link that may help you to play midi file with VB
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.