• Home
 · 
• Sound/MP3
 · 
• Playing sound wave

Playing sound wave

Playing sound wave

Rate Playing sound wave

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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