Autor
Código:
'/////////////////// En un modulo
Type PlayRecord
FileName As String
SeekAtStart As Long
Owner As Long
Result As Long
End Type
Declare Sub mp3gettime Lib "MP3.DLL" (DATA As PlayRecord, total As Double, perframe As Double)
Declare Sub mp3play Lib "MP3.DLL" (DATA As PlayRecord)
Declare Sub mp3stop Lib "MP3.DLL" ()
Declare Sub mp3seek Lib "MP3.DLL" (position As Integer)
[color=Green]'////////////////////////////// En el Form[/color]
Private Sub Form_Load()
Dim PR as PlayRecord
PR.FileName="c:\mp3\...."
Call mp3play(PR)
End Sub
Type PlayRecord
FileName As String
SeekAtStart As Long
Owner As Long
Result As Long
End Type
Declare Sub mp3gettime Lib "MP3.DLL" (DATA As PlayRecord, total As Double, perframe As Double)
Declare Sub mp3play Lib "MP3.DLL" (DATA As PlayRecord)
Declare Sub mp3stop Lib "MP3.DLL" ()
Declare Sub mp3seek Lib "MP3.DLL" (position As Integer)
[color=Green]'////////////////////////////// En el Form[/color]
Private Sub Form_Load()
Dim PR as PlayRecord
PR.FileName="c:\mp3\...."
Call mp3play(PR)
End Sub
El problema esta en la llamada, osea, cuando comienza a reproducir el archivo la ejecucion se detiene y hasta que no termina de reproducir el mp3 no continua la ejecucion. Me aclaro, no es que se detiene la ejecucion, su cuelga, una vez que termina de reproducir el tema se "descuelga".
Bueno, es eso...
Saludos !!
En línea
