media player

Question

je n'arrive pas a trouver pour enchainer les musiques les une apres les autres avec le control media player en me servant 
d'un control dir list et file list pour la recherche des musiques

acive · Answer

salut

par exemple tu fais un timer toutes les secondes et tu mets

if mediaplayer1.state <> 7 then
   if file1.listindex < file1.listcount -1 then 
      file1.listindex = file1.listindex + 1
   else
      file1.listindex = 0
   end if
   mediaplayer1.filename = file1.path & "" & file1.filename
end if

kev900001 · Answer

ca me fait une erreur d'execution 438

acive · Answer

erreur d'execution 438 à quel endroit? ca c'est pour l'ancienne version de mediaplayer: if mediaplayer1.state <> 7 then if file1.listindex < file1.listcount -1 then file1.listindex = file1.listindex + 1 else file1.listindex = 0 end if mediaplayer1.filename = file1.path & "" & file1.filename end if pour la version plus récente c'est: if left(mediaplayer1.staus, 7) <> "Lecture" then if file1.listindex < file1.listcount -1 then file1.listindex = file1.listindex + 1 else file1.listindex = 0 end if mediaplayer1.URL = file1.path & "" & file1.filename mediaplayer1.controls.play end if Tu m'excuseras je peux pas tester je suis dans un cyber et pas de VB ici

kev900001 · Answer

ca me dit erreur438 l'objet ne gere pas cette propriete oui cette methode

kev900001 · Answer

sur la premiere phrase :if left(player.staus, 7) <> "Lecture" then

acive · Answer

excuse j'ai oublié un 'T' dans Status

if left(mediaplayer1.status, 7) <> "Lecture" then
if file1.listindex < file1.listcount -1 then 
file1.listindex = file1.listindex + 1
else
file1.listindex = 0
end if
mediaplayer1.URL = file1.path & "" & file1.filename
mediaplayer1.controls.play
end if

kev900001 · Answer

ecxuse moi mais 
je me suis tromper de ligne
c'est celle du dessus

Media player

7 réponses

Discussions similaires