» 14 Ene 2010 17:39 bueno
en referencias busquen
ActiveMovie control type library
luego en el clsAudio declaren
- Dim MP3 As Boolean
- Dim DSAudio As IBasicAudio
- Dim DSEvent As IMediaEvent
- Dim DSControl As IMediaControl
- Dim DSPosition As IMediaPosition
al final del clsAudio pongan
- Function MP3_Load(ByVal FileName As String) As Boolean
- Set DSControl = New FilgraphManager
- Call DSControl.RenderFile(App.Path & "\MP3\" & FileName & ".mp3")
- Set DSAudio = DSControl
- DSAudio.Volume = 0
- DSAudio.Balance = 0
- Set DSEvent = DSControl
- Set DSPosition = DSControl
- DSPosition.Rate = 1#
- DSPosition.CurrentPosition = 0
- End Function
- Public Function MP3_Play(ByVal FileName As String) As Boolean
- If MP3 = True Then _
- MP3_Stop
- MP3 = MP3_Load(FileName)
- DSControl.Run
- MP3_Play = True
- Exit Function
- End Function
- Public Sub MP3_Stop()
- DSControl.Stop
- DSPosition.CurrentPosition = 0
- MP3 = False
- Exit Sub
- End Sub
- Public Sub MP3_Destroy()
- If MP3 = True Then _
- MP3_Stop
- Set DSAudio = Nothing
- Set DSEvent = Nothing
- Set DSControl = Nothing
- Set DSPosition = Nothing
- End Sub
Bueno ahora donde ustedes destruyen dx o en el sub UnloadAllForms pongan
- Audio.MP3_Destroy
el el cliente crean la carpeta MP3 y para hacerlo funcionar el cod es
Audio.MP3_Play nombre 'sin .mp3
edit: si quieren parar
Audio.MP3_Stop
28![Destructor de Mentes [1]](./images/ranks/Rango13.gif "Destructor de Mentes [1]")
![Aprendiz [6]](./images/ranks/Rango11.gif "Aprendiz [6]")
