bluebird2006
10 de Marzo del 2006

Hola ¿como estan todos?
Soy nuevo en este foro y en el tema de Visual Basic hace poco que empece....
Estoy haciendo una aplicación que reproduce archivos MP3...Toma los datos para la reproduccion de un listbox que estan almacenados en una base da tatos access con ADO..
El problema es el siguiente...lo que figura comentado...andaba perfectamente...pero quise mejorar el programa utilizando el wmp para que durante la reproduccion de los temas mostrara las visualizaciones....pero no me anda...

Este es el código que me falla...lo que tiene el ' es lo que funcionaba

CODIGO:

Private Sub Pasa_Tema()

If Pasa_Pago = False Then
If List3.ListCount > 0 Then
Pasa_Pago = True
Mp3.Controls.Stop
Mp3.URL = "c:mp3" & List3.ItemData(0) & ".mp3"
Mp3.settings.volume = 250
'Mp1.Stop
'Mp1.Open "c:mp3" & List3.ItemData(0) & ".mp3"
'Mp1.Volume = -50
Graba_tema List3.ItemData(0)
List3.RemoveItem (0)
Else
Pasa_Pago = False
RandTema
End If
End If

End Sub
Private Sub pasa_siguiente()
Label8(0).Caption = ""
Label8(1).Caption = ""

If List3.ListCount > 0 Then
Pasa_Pago = True
Mp3.Controls.playItem
Mp3.URL = "c:mp3" & List3.ItemData(0) & ".mp3"
Mp3.settings.volume = 250
'Mp1.Stop
'Mp1.Open "c:mp3" & List3.ItemData(0) & ".mp3"
'Mp1.Volume = -10
Graba_tema List3.ItemData(0)
List3.RemoveItem (0)
Else
Pasa_Pago = False
RandTema
End If

End Sub