Discussion :

[dlefebvre]

Bonjour, j'ai programmer une application en VB6 au début des années 2000. Cette application me servait à l'aréna lors des parties de hockey, c'était un lecteur MP3 avec plein d'option d'effets sonores qui me permettait d'interagir rapidement. Mon problème est que je dois l'utiliser à nouveau et je n'ai pas le temps de la convertir et de la mettre à niveau. J'ai donc rouvert le code source avec VB6 mais j'ai un problème avec la propriété FileName du contrôle MediaPlayer (msdxm.ocx) peu importe ce que je lui assigne il ne le garde pas.

Dans le bout de code suivant je parcours un BD Acces pour rechercher le fichier sélectionné dans une listbox et quand je le trouve je l'assigne à mon contrôle mais il ne le garde jamais, il ne plante pas il passe sur la ligne mais la propriété FileName reste vide alors quand plus tard je fait MPChoix1.Play...là ça plante !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Do While Not rstJouer.EOF
   If rstJouer!Nom_Fichier = TabList1(lstChoix1.ListIndex) Then
      MPChoix1.FileName = rstJouer!Chemin_Fichier
      GoTo flag
   Else
      rstJouer.MoveNext
   End If
Loop

Quand j’exécute cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
MPChoix1.FileName = rstJouer!Chemin_Fichier

rstJouer!Chemin_Fichier contient belle et bien le chemin de mon fichier à ouvrir.

Auriez-vous une petite idée, ce code fonctionnait très bien je n'ai rien changé il à juste vieillie dans le temps

Merci
Danick

[ProgElecT]

Salut

...............
Dans le bout de code suivant je parcours un BD Acces pour rechercher le fichier sélectionné dans une listbox et quand je le trouve je l'assigne à mon contrôle mais il ne le garde jamais, il ne plante pas il passe sur la ligne mais la propriété FileName reste vide alors quand plus tard je fait MPChoix1.Play...là ça plante !!
............

Pour ma part il m'es impossible de charger msdxm.ocx, qui se trouve dans 14 dossiers différents C:\Windows\SysWOW64 et C:\Windows\System32 et 12 dossier du style C:\Windows\winsxs\amd64_microsoft-windows-mediaplayer-core_31bf3856ad364e35_6.1.7600.............
Que donnerait

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
MPChoix1.FileName = rstJouer!Chemin_Fichier
MPChoix1.Open = MPChoix1.FileName

????