Simple DirectX MIDI's

[Robin]

Mark, that tutorial doesn't handle how to do it in Mirage itself so it's made obsolete by Jsventor.

Jsventor, it's pretty nice but I don't understand why you have to load the midi then play it.

I quickly merged those two together:

Code:

Public Sub PlayMidi(filename As String)
On Error Resume Next
    Set Segment = Loader.LoadSegment(filename)
    If Err.Number  DD_OK Then MsgBox "Error: Could not load MIDI file!", vbExclamation, "ERROR!"
    Preformance.PlaySegment Segment, 0, 0
End Sub

Delete LoadMIDI and replace PlayMidi with the above.