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 !!
Quand j’exécute cette ligne
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
rstJouer!Chemin_Fichier contient belle et bien le chemin de mon fichier à ouvrir.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 MPChoix1.FileName = rstJouer!Chemin_Fichier
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
Partager