Ljudfiler i MIDI-format är ofta långa, så det kan vara nödvändigt att sluta spela
ljudet (t.ex. när makrot är klart). Här är ett exempel:
Privat deklarera funktion mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) As Long Sub PlayMidiFile (MidiFileName As String, Play As Boolean) If Dir (MidiFileName) = "" Stäng sedan Sub 'ingen fil att spela If Play Då mciExecute "play" & MidiFileName 'börja spela Else mciExecute "stop" & MidiFileName' stop playing End If End Sub Sub TestPlayMidiFile () PlayMidiFile "c: \ foldername \ soundfilename.mid", True MsgBox "Klicka OK när MIDI -filen börjar spela … "MsgBox" Klicka på OK för att sluta spela MIDI -filen … "PlayMidiFile" c: \ foldername \ soundfilename.mid ", False End Sub