Mabondo2
Messages postés1Date d'inscriptionmardi 18 octobre 2011StatutMembreDernière intervention 5 février 2012 5 févr. 2012 à 22:54
Quelle est la reference de l'objet mediaplayer1
lucky07ir
Messages postés133Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 avril 2004 19 mai 2003 à 22:39
OBI76> ca reste quand meme plus long ta soluce mais tout aussi efficace. ++
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 19 mai 2003 à 19:20
ok, lucky07ir !! je vois..... je reviens donc sur ma suggestion de decoder le ID3 tag...
OBI76
Messages postés28Date d'inscriptionmardi 23 juillet 2002StatutMembreDerniè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és133Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 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és17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 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és17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 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és962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 2 avril 2003 à 19:07
G pas dit plus simple,g dit mieux.
lucky07ir
Messages postés133Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 avril 2004 1 avril 2003 à 21:07
Plus simple? tu trouve? pour un debutant je suis pas vraiment sur.....
a plus ;-)
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 1 avril 2003 à 19:06
Dsl , les backslash n'apparesse pas.
Ds addmp3 , ya un slash entre les guillemet vide
yoman64
Messages postés962Date d'inscriptionsamedi 19 janvier 2002StatutMembreDernière intervention 2 août 20102 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és74Date d'inscriptionjeudi 13 février 2003StatutMembreDernière intervention12 septembre 2004 16 mars 2003 à 22:29
merci je vien enfin de finir mon player grace a toi :)
OBI76
Messages postés28Date d'inscriptionmardi 23 juillet 2002StatutMembreDerniè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és939Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention27 janvier 20093 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és78Date d'inscriptiondimanche 21 avril 2002StatutMembreDerniè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 ...
5 févr. 2012 à 22:54
19 mai 2003 à 22:39
19 mai 2003 à 19:20
19 mai 2003 à 13:24
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
19 mai 2003 à 13:19
19 mai 2003 à 08:21
19 mai 2003 à 08:20
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..... ;-)
2 avril 2003 à 19:07
1 avril 2003 à 21:07
a plus ;-)
1 avril 2003 à 19:06
Ds addmp3 , ya un slash entre les guillemet vide
1 avril 2003 à 19:02
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)
16 mars 2003 à 22:29
27 janv. 2003 à 18:00
s=inputbox(s, "Entrez le chemin d'accès du mp3")
list1.additem s
Et voilà...
26 janv. 2003 à 21:03
26 janv. 2003 à 19:58