Playing sound wave

by SERRANA (3 Submissions)
Category: Sound/MP3
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Sat 30^th July 2005
Date Added: Mon 8^th February 2021
Rating: (1 Votes)

Playing sound wave

Rate Playing sound wave



Private Const SND_SYNC = &H0

Private Sub Form_Load()
Dim eArquivo(2) As String, cArquivo As Integer

eArquivo(0) = "c:\arquivos de programas\messenger\newalert.wav"
eArquivo(1) = "c:\arquivos de programas\messenger\newemail.wav"
eArquivo(2) = "c:\arquivos de programas\messenger\online.wav"

Dim teste As Long

For cArquivo = LBound(eArquivo) To UBound(eArquivo)
teste = sndPlaySound(eArquivo(cArquivo), SND_SYNC)
Next cArquivo
End Sub

Download this snippet Add to My Saved Code

Playing sound wave Comments

No comments have been posted about Playing sound wave. Why not be the first to post a comment about Playing sound wave.

Playing sound wave

Playing sound wave Comments

Post your comment

Difficulty