Publicado: 14 Ene 2010 17:39funciona para todas las versiones pero lo postie aca
bueno
en referencias busquen
ActiveMovie control type library
luego en el clsAudio declaren
al final del clsAudio pongan
Bueno ahora donde ustedes destruyen dx o en el sub UnloadAllForms pongan
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
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
