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)
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
Dsl , les backslash n'apparesse pas.
Ds addmp3 , ya un slash entre les guillemet vide
lucky07ir
Messages postés
133
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 avril 2004
-
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
-
G pas dit plus simple,g dit mieux.
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
54 -
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..... ;-)
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
54 -
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.
lucky07ir
Messages postés
133
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 avril 2004
-
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?
OBI76
Messages postés
28
Date d'inscription
mardi 23 juillet 2002
Statut
Membre
Dernière intervention
4 janvier 2004
-
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
Renfield
Messages postés
17283
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
54 -
ok, lucky07ir !! je vois..... je reviens donc sur ma suggestion de decoder le ID3 tag...
lucky07ir
Messages postés
133
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
18 avril 2004
-
OBI76> ca reste quand meme plus long ta soluce mais tout aussi efficace. ++
Mabondo2
Messages postés
1
Date d'inscription
mardi 18 octobre 2011
Statut
Membre
Dernière intervention
5 février 2012
-
Quelle est la reference de l'objet mediaplayer1