
Playing midi file with VB4(32bit)
Quote:
>Is there a way to play a midi file using VB4(32 bit) ?
>Thanks
>Jim M
Hi Jim,
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
dim ret as long, retstr as long
comand = "open hello.mid type sequencer alias back"
ret = mciSendString(comand, retstr, 0, 0)
ret = mciSendString("play back notify", retstr, 0, 0)
Hope this help