İçindekiler
MIDI formatındaki ses dosyaları genellikle uzundur, bu nedenle çalmayı durdurmak gerekebilir
ses (örneğin makro bittiğinde). İşte bir örnek:
Özel Bildirme İşlevi mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) As Long Sub PlayMidiFile(MidiFileName As String, Play As Boolean) If Dir(MidiFileName) = "" Then Exit Sub ' Oynatılacak dosya yok If Play Then mciExecute "play" & MidiFileName ' çalmaya başla Else mciExecute "stop" & MidiFileName ' çalmayı durdur End If End Sub Sub TestPlayMidiFile() PlayMidiFile "c:\foldername\soundfilename.mid", True MsgBox "MIDI dosyası çalmaya başladığında Tamam'ı tıklayın… " MsgBox "MIDI dosyasını oynatmayı durdurmak için Tamam'ı tıklayın… " PlayMidiFile "c:\foldername\soundfilename.mid", False End Sub
