22/10/11 8:01
blasters
Salve, ho bisogno di riprodurre più file audio contemporaneamente, ho provato ad usare questo codice ma ho dei problemi. Come potrei fare?
Imports QuartzTypeLib Public Class Form1 Dim Audio As IBasicAudio Dim MMCtrl As IMediaControl Dim suoni(10) As IBasicAudio Public Sub SoundMusic(ByVal path As String, ByVal index As Integer, ByVal volume As Integer) suoni(index).MMCtrl = New QuartzTypeLib.FilgraphManager suoni(index).MMCtrl.RenderFile(path) suoni(index).Audio.Balance = 0 ' da -10000 a + 10000 suoni(index).Audio.volume = volume ' da -10000 a 0 in attenuanza di decibel non è lineare suoni(index).Audio.Run() End Sub Grazie Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click SoundMusic("c:\a.mp3", 0, 0) End Sub
aaa