Kazalo
Zvočne datoteke v formatu MIDI so pogosto dolge, zato bo morda treba ustaviti predvajanje
zvok (npr. ko je makro končan). Tukaj je primer:
Zasebna deklarirana funkcija mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) Kot dolga Sub PlayMidiFile (MidiFileName As String, Play As Boolean) If Dir (MidiFileName) = "" Potem zapustite Sub 'ni datoteke za predvajanje Če predvajate Potem mciExecute "play" & MidiFileName 'začni predvajati Drugače mciExecute "stop" & MidiFileName "prenehaj predvajati End If End Sub Sub TestPlayMidiFile () PlayMidiFile" c: \ ime mape \ ime zvočne datoteke.mid ", True MsgBox" Kliknite V redu, ko se datoteka MIDI začne predvajati … "MsgBox" Kliknite V redu, da ustavite predvajanje datoteke MIDI … "PlayMidiFile" c: \ ime mape \ ime zvočne datoteke.mid ", False End Sub
