WAV formatındaki ses dosyalarını çalmak kolaydır. Sadece çalmak istediğiniz sesin dosya adını bilmeniz yeterlidir,
ve ses çalarken makronun beklemesini isteyip istemediğinize karar verin. İşte bir örnek:
Public Bildiri Fonksiyonu sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile(WavFileName As String, Wait As Boolean) If Dir(WavFile ExName) = "" Alt 'oynatılacak dosya yok If Wait O zaman ' daha fazla kod çalıştırmadan önce ses çal sndPlaySound WavFileName, 0 Else ' kod çalışırken ses çal sndPlaySound WavFileName, 1 End If End Sub Sub TestPlayWavFile() PlayWavFile "c:\klasöradı\soundfilename. wav", False MsgBox "Bu, ses çalarken görünür… " PlayWavFile "c:\klasöradı\soundfilename.wav", True MsgBox "Bu, ses çalındıktan sonra görünür… " End Sub