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

cs_Tidus Messages postés 78 Date d'inscription dimanche 21 avril 2002 Statut Membre Dernière intervention 7 juillet 2003 - 26 janv. 2003 à 19:58
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

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
Quelle est la reference de l'objet mediaplayer1
lucky07ir Messages postés 133 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 avril 2004
19 mai 2003 à 22:39
OBI76> ca reste quand meme plus long ta soluce mais tout aussi efficace. ++
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
19 mai 2003 à 19:20
ok, lucky07ir !! je vois..... je reviens donc sur ma suggestion de decoder le ID3 tag...
OBI76 Messages postés 28 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 4 janvier 2004
19 mai 2003 à 13:24
bah dans ces cas là tu fais
list1.sorte=true
for a=0 to file1.listcount-1
list1.additem left(file1.list(a),len(file1.list(a))-4)
next

et pour lire :
mediaplayer1.filename = list1.list(file1.path & "" & mp3selectionné & ".mp3")
mediaplayer1.play

Si tu change de répertoire, tu fais 2 liste, une avec le nom à afficher, une invisible avec le chemin de tous les mp3
lucky07ir Messages postés 133 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 avril 2004
19 mai 2003 à 13:19
le but ici n'est pas d'afficher une boite de dialogue ca tout le monde sait le faire et il ne faut pas les rentrer a la main non plus le but je t'explique tu as un repertoire avec tous tes MP3 tu liste tout dans un listbox et la tu li ton mp3 sans que se soit marque dj ross - Dreamland.mp3 par exemple c'est pas joli le .MP3 a la fin tu voi le truc?
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
19 mai 2003 à 08:21
et entre nous, il y a debutant et debutant , en clair ceux qui semblent vouloir le rester ! il faut ce mettre les mains dans le code !! et avoir un tube d'aspirine a dispo.
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
19 mai 2003 à 08:20
je vois pas le rapport avec le "sans que le chemin complet...."
ca montre comment lire un mp3, c'est tout......

le mieux serait encore de lire le ID3.Tag.....

autre chose !!

ajoutes une CommonDialog (Projet > Composant > Microsoft Common Dialog Control) !!!! tu fais CommonDialog1.ShowOpen et ensuite , tu a une fenetre qui permet le choix d'un fichier. Par la suite, tu as acces a .FileName & FileTitle, qui contiennent le nom du fichier , ou le nom avec chemin complet....

c'est quand meme mieux que de saisir le chemin a la main..... ;-)
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
2 avril 2003 à 19:07
G pas dit plus simple,g dit mieux.
lucky07ir Messages postés 133 Date d'inscription dimanche 1 septembre 2002 Statut Membre Dernière intervention 18 avril 2004
1 avril 2003 à 21:07
Plus simple? tu trouve? pour un debutant je suis pas vraiment sur.....
a plus ;-)
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
1 avril 2003 à 19:06
Dsl , les backslash n'apparesse pas.
Ds addmp3 , ya un slash entre les guillemet vide
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 2
1 avril 2003 à 19:02
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)
ACEspecForce130 Messages postés 74 Date d'inscription jeudi 13 février 2003 Statut Membre Dernière intervention 12 septembre 2004
16 mars 2003 à 22:29
merci je vien enfin de finir mon player grace a toi :)
OBI76 Messages postés 28 Date d'inscription mardi 23 juillet 2002 Statut Membre Dernière intervention 4 janvier 2004
27 janv. 2003 à 18:00
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à...
hvb Messages postés 939 Date d'inscription vendredi 25 octobre 2002 Statut Membre Dernière intervention 27 janvier 2009 3
26 janv. 2003 à 21:03
... mais alors dans ta liste tu dois mettre que des mp3 stockés dans un dossier defini avant la compilation? pas tres pratique...
cs_Tidus Messages postés 78 Date d'inscription dimanche 21 avril 2002 Statut Membre Dernière intervention 7 juillet 2003
26 janv. 2003 à 19:58
Etait-ce bien nécessaire de préciser ça ? Bon, ça va encore... Ca peut servir aux débutants ...