MIDI failų paleidimas naudojant „Microsoft Excel“ VBA

Anonim

Garso failai MIDI formatu dažnai būna ilgi, todėl gali tekti nutraukti grojimą
garsas (pvz., kai makrokomanda baigta). Štai pavyzdys:

Privati ​​deklaravimo funkcija mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) Kaip ilga antrinė dalis PlayMidiFile (MidiFileName As String, Play as Boolean) If Dir (MidiFileName) = "" Išeikite iš „Sub '' no file to play if Play“ mciExecute „žaisti“ ir „MidiFileName“ pradėkite žaisti Else mciExecute „sustabdyti“ ir „MidiFileName“ sustabdyti žaidimą Pabaigti, jei pabaiga Antrasis testasPlayMidiFile () „PlayMidiFile“ c: \ aplanko vardas \ garso failo pavadinimas.mid ", True MsgBox" Spustelėkite Gerai, kai pradedamas leisti MIDI failas … "MsgBox" Spustelėkite Gerai, kad sustabdytumėte MIDI failo atkūrimą … "PlayMidiFile" c: \ foldername \ soundfilename.mid ", False End Sub