Estoy haciendo un programa que reproduce archivos mp3 que trabajan desde una base de datos access...cuando cargo mas de un tema solo me reproduce el primero...y si no presiono la tecla 0 (Cero) no me reproduce el siguiente...
Creo que el problema está en este código...lo sustitui por el que está comentado...porque queria que en una ventana me mostrara las visualizaciones del wmp...
Gracias por su ayuda...saludos a todos.
Pablo
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
Espero se entienda...
