LIRE UN MP3 DANS UN LISTBOX SANS QUE LE CHEMIN COMPLET N'Y SOIT AFFICHÉ.

Messages postés
78
Date d'inscription
dimanche 21 avril 2002
Statut
Membre
Dernière intervention
7 juillet 2003
- - Dernière réponse : Mabondo2
Messages postés
1
Date d'inscription
mardi 18 octobre 2011
Statut
Membre
Dernière intervention
5 février 2012
- 5 févr. 2012 à 22:54
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5763-lire-un-mp3-dans-un-listbox-sans-que-le-chemin-complet-n-y-soit-affiche

Afficher la suite 
cs_Tidus
Messages postés
78
Date d'inscription
dimanche 21 avril 2002
Statut
Membre
Dernière intervention
7 juillet 2003
-
Etait-ce bien nécessaire de préciser ça ? Bon, ça va encore... Ca peut servir aux débutants ...
hvb
Messages postés
961
Date d'inscription
vendredi 25 octobre 2002
Statut
Membre
Dernière intervention
27 janvier 2009
1 -
... mais alors dans ta liste tu dois mettre que des mp3 stockés dans un dossier defini avant la compilation? pas tres pratique...
OBI76
Messages postés
28
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
4 janvier 2004
-
Bah non t pas obligé de les définir AVANT compilation. Il suffit de rajouter un code permettant d'ajouter les mp3 que tu veux :
s=inputbox(s, "Entrez le chemin d'accès du mp3")
list1.additem s
Et voilà...
ACEspecForce130
Messages postés
74
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
12 septembre 2004
-
merci je vien enfin de finir mon player grace a toi :)
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
ya mieu:

Dim mp3fichier(0 to 100) as string

Public Function addMp3(mp3 as string,list as listbox)
list.additem mid(mp3, instrrev(mp3,"")+1)
mp3fichier(list.listcount)=mp3
End Function

Public function Liremp3(Litem as integer)
mediaplayer1.filename = mp3fichier(litem)
mediaplayer1.play
End Function







List1_Click
Liremp3(list1.listindex)
End sub

'Ajouter un mp3:
addMp3("C:oblatoune.mp3",list1)