Πίνακας περιεχομένων
Τα ηχητικά αρχεία σε μορφή MIDI είναι συχνά μεγάλα, οπότε ίσως χρειαστεί να σταματήσετε να παίζετε
τον ήχο (π.χ. όταν τελειώσει η μακροεντολή). Εδώ είναι ένα παράδειγμα:
Private Declare Function mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) As Long Sub PlayMidiFile (MidiFileName As String, Play As Boolean) If Dir (MidiFileName) = "" Τότε Έξοδος από "Δεν υπάρχει αρχείο για αναπαραγωγή If Play Στη συνέχεια mciExecute "play" & MidiFileName "ξεκινήστε να παίζετε Else mciExecute" stop "& MidiFileName" σταματήστε να παίζετε End If End Sub Sub TestPlayMidiFile () PlayMidiFile "c: \ foldername \ soundfilename.mid", True MsgBox "Κάντε κλικ στο OK όταν αρχίσει να παίζει το αρχείο MIDI… "MsgBox" Κάντε κλικ στο OK για να σταματήσετε την αναπαραγωγή του αρχείου MIDI … "PlayMidiFile" c: \ foldername \ soundfilename.mid ", False End Sub
