• Jueves 30 de Junio de 2022, 15:19

Autor Tema:  Problemas Con Windows Media Player  (Leído 935 veces)

Bluebird

  • Miembro activo
  • **
  • Mensajes: 30
    • Ver Perfil
Problemas Con Windows Media Player
« en: Sábado 4 de Febrero de 2006, 22:13 »
0
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
Código: Text
  1.  
  2. Private Sub Pasa_Tema()
  3.  
  4. If Pasa_Pago = False Then
  5.     If List3.ListCount > 0 Then
  6.         Pasa_Pago = True
  7.         Mp3.Controls.Stop
  8.         Mp3.URL = "c:\mp3\" & List3.ItemData(0) & ".mp3"
  9.         Mp3.settings.volume = 250
  10.         'Mp1.Stop
  11.         'Mp1.Open "c:\mp3\" & List3.ItemData(0) & ".mp3"
  12.         'Mp1.Volume = -50
  13.         Graba_tema List3.ItemData(0)
  14.         List3.RemoveItem (0)
  15.     Else
  16.         Pasa_Pago = False
  17.         RandTema
  18.         End If
  19. End If
  20.  
  21. End Sub
  22. Private Sub pasa_siguiente()
  23. Label8(0).Caption = ""
  24. Label8(1).Caption = ""
  25.    
  26.     If List3.ListCount > 0 Then
  27.         Pasa_Pago = True
  28.         Mp3.Controls.playItem
  29.         Mp3.URL = "c:\mp3\" & List3.ItemData(0) & ".mp3"
  30.         Mp3.settings.volume = 250
  31.         'Mp1.Stop
  32.         'Mp1.Open "c:\mp3\" & List3.ItemData(0) & ".mp3"
  33.         'Mp1.Volume = -10
  34.         Graba_tema List3.ItemData(0)
  35.         List3.RemoveItem (0)
  36.     Else
  37.         Pasa_Pago = False
  38.         RandTema
  39.         End If
  40.  
  41. End Sub
  42.  
  43.  

Espero se entienda...
bLuEbIRD....JoIn ThE CoSmOs...