Bonjour à tous

Je suis débutant en VB, et j'essaie de créer un lecteur simpas, et plus tard une petite table de mixage.

Je me sert de ce tuto:
http://silkyroad.developpez.com/VBA/WindowsMediaPlayer/

Mais j'ai un problème pour
III-E. Lister le nom des séquences contenues dans la PlayList
Vb

Je copie le code, est 3 message box s'ouvre les une aprés les autres pour me dire ce qu'il y a dans ma playlist.
Jusqu'a la ok, mais je voudrais que la liste s'écrive d'un coup dans une Texbox.

Pour les autres fonction il m'a suffit de remplacer MsgBox par un textbox, mais içi il me reste un probléme
;
J'ai essayer de remplacer

MsgBox Pl.Item(i).Name
par:
Text2 = Pl.Item(i).Name

ça marche, mais ça m'écrit les 3 titres les uns a la suite des autres, en effaçant le précédant, je ne trouve pas comment afficher toute la liste, avec a chaque ligne un titre différent. ...

Est-ce que plus tard je pourrais choisir la piste que je veux lancer a partir de cette liste, ou il vaut mieux que j'utilise un autre objet (qu'une Textbox) pour faire cette liste ?

pouvez-vous m'aider SVP ?

-------------------------------------------------------

Un autre problème,
J'ai réussi dans un autre programme a créer un explorateur windows, avec des ListBox etc...
Mais je voudrais savoir comment faire, pour créer un bouton qui chargera l'explorateur de windows (le vrai), et m'en servir pour choisir la musique que je veux lire, car le tuto explique comment charger une musique seulement a partir du code.

ce que j'avais pensé faire:
-Avec l'explorateur, sélectionner un fichier.
-Une variable serra égal au nom du fichier.

et dans mon code au lieu d'avoir:
WindowsMediaPlayer1.URL = "C:\leFichier.mp3"
J'aurais:
WindowsMediaPlayer1.URL = "ma variable"

Pensez-vous que c'est une bonne méthode


Merci beaucoup

Pour la deuxième partie de ta question : utilise le contrôle common dialog 6.0 de Microsoft.
Pour ça, dans projets=>composants clique sur parcourir puis sélectionne le fichier C:\windows\system32\comdlg32.ocx

Place un instance de cet objet sur ta feuille (c'est pareil que pour un timer, il n'apparait pas à l'exécution).
Pour afficher une boite de dialogue ouvrir avec, marque dans ton code : (j'ai appelé le controle "browser")

Browser.FileName = ""
Browser.Filter = "Fichier Audio (*.mp3)|*.mp3|Tout les fichiers(*.*)|*.*"
Browser.ShowOpen
If Browser.FileName = "" Then Exit Sub
Load_Music_File Browser.FileName

Ou load_music_file est une fonction gérant la lecture du fichier

Je réponds à la première partie de ta question cette après midi.
A tout de suite !

Edité par neamar ( 09/05/2007 12:41:42 )

J'ai essayer de remplacer

MsgBox Pl.Item(i).Name
par:
Text2 = Pl.Item(i).Name

Deux solutions :
ou tu tiens vraiment à tout mettre dans un textbox et tu fais ca :
text2.Text=text2.Text & vbcrlf & Pl.Item(i).Name

Ou tu veux faire ca mieux et tu mets tout dans un combobox.
Pour ca tu place le combobox sur ta feuille, et dans ton code tu remplace par :

combo1.Additem Pl.Item(i).Name

merci beaucoup neamar pour ton aide !

Ca m'a été trés utile

Je me suis servis d'un listbox plutot qu'un combobox. comme ça, je pense que je vais grace a l'explorateur, rajouter des éléments dans la liste, et lancer la lecture à partir d'un titre charger dans la listbox.

Je pense que je vais avoir des souçis pour interagir sur les éléments sélectionner (charger la musique voulu dans la listebox, dans le lecteur).

surtout avec le tuto dont j'ai parlé dans le premier post ...

Personne n'aurais un ou des tutos qui pourrait m'aider à mon projet ?

Je trouve VB simpas car il a l'air intuitif, mais il y a beaucoup de choses que s'y on a pas demander ou lu, on ne trouve jamais.

Si tu ne m'avait donné :
combo1.Additem Pl.Item(i).Name

j'aurais pu m'écharner des semaines sur un :
combo1 = Pl.Item(i).Name


Merci

Re,

J'ai passé la journée dessus et je n'y arrive pas.

J'arrive a faire une playlist avec ce code :

Dim Xwmp As IWMPMedia

'nettoye la Playlist en cours avant de réalimenter la liste
WindowsMediaPlayer1.currentPlaylist.Clear

Set Xwmp = WindowsMediaPlayer1.newMedia("C:\essai.mid")
WindowsMediaPlayer1.currentPlaylist.insertItem 0, Xwmp

Set Xwmp = WindowsMediaPlayer1.newMedia("C:\maMusique.mp3")
WindowsMediaPlayer1.currentPlaylist.insertItem 1, Xwmp

Donc ça me charge dans ma playlist (listbox) mes 2 ou 3 titres,

après dans un bouton_click j'insère le code pour rajouter une musique, mais elle ne s'ajoute jamais dans la Listbox (normal car le bouton 1 affiche seulement le code du premier code au dessus)
Je ne voit pas comment faire...

Voici le code pour ajouter un piste à la playlist:

Private Sub Command3_Click()
Dim Ad As IWMPMedia
Set Ad = WindowsMediaPlayer1.newMedia("D:\Loisir\music-animes-ost\NARUTO.mp3")
WindowsMediaPlayer1.currentPlaylist.appendItem Ad
End Sub

Et je n'arrive pas a me servir de ton explorateur, j'ai bien rajouter l'objet que tu m'a dit, et j'ai essayer de mettre le bout de code dans un bouton, et ça ne marche pas....

'Private Sub Command4_Click()
'Browser.FileName = ""
'Browser.Filter = "Fichier Audio (*.mp3)|*.mp3|Tout les fichiers(*.*)|*.*"
'Browser.ShowOpen
'If Browser.FileName = "" Then Exit Sub
'Load_Music_File Browser.FileName
'End Sub

Et je n'est pas trouvé comment faire, pour que je lise le fichier que je souhaite à partir de la listbox ...

J'ai essayer de m'inspirer des codes sur vbfrance, mais je ne comprend pas vraiment ...

si jamais quelqu'un en a le courage de me debloquer, voici mon projet:

http://animes-load.fr/Moi_lecteur.zip


merci beaucoup

Si tu ne m'avait donné :
combo1.Additem Pl.Item(i).Name

j'aurais pu m'écharner des semaines sur un :
combo1 = Pl.Item(i).Name

Il est assez mal vu d'utiliser un objet sans propriétes, car cela ralentit le code et lui enlève sa clarté.
De plus, l'evenement "par défaut" du combobox est text, et non additem.

Ensuite, remplis la propriété (name) de tes controles, au lieu de laisser command1, windowsmediaplayer1, qui ne sont pas toujours très explicites et qui deviennent lourds sur les projets conséquents (j'ai en ce moment sur un projet une centaine de contrôles...il est bon de les nommer correctement.


Pour ce qui est du common dialog, j'espere que tu trouveras ton bonheur la dedans pour comprendre :
http://www.developpez.com/vbasic/tutoriel/tutoriel12.php

Le lien pour la source : http://www.visualbasic6.org/download/zip/cmdialog.zip

Je suis bien d'accord avec toi que débuter dans VB n'est vraiment pas facile..très peu de sites offrent une documentation complète.
Voici quand même quelques sites dont je me sers souvent et qui t'aideront peut être :
http://docvb.free.fr/index.php (pour les APIS, l'interet principal de VB à mon gout...)
http://www.vbaccelerator.com/home/VB/index.asp (en anglais)
http://www.vb-helper.com (en anglais aussi)
http://www.vbfrance.com/ (bien evidemment...)
http://vb.developpez.com/faq/?page=rechercher (un truc utile, une FAQ bien faite et complète avec des questions très simples et des plus compliquées)
http://www.samspublishing.com/library/content.asp?b=STY_VB6_24hours&seqNum=239&rl=1
(enfin un site qui part du tout début..Mais entièrement en anglais...°
http://www.vbexplorer.com/VBExplorer/gdi1.asp (le truc pour débuter avec les graphismes : bitblt, stretchblt, transparentblt, srcand, xor, nor, palette...)

Pour t'aider plus précisèment :
http://www.vbfrance.com/codes/LECTEUR-MULTIMEDIA-COMMUN_21071.aspx

Je regarde ta source et j'en reparle...

Après examen du code source :
-Tu as pas mal d'erreur signalé dans le fichier log..essaie de changer les propriétés concernées !
- Not j > 0 <=> j=0 !
- tu n'as pas changé le nom de ton controle commondialog ! Il aurait fallu le renommer en browser (ca marche maintenant)
-Règle la propriété caption !

J'ai travaillé dessus, voilà une version qui marche, il n'y a eu que quelques modifs mineures...
http://neamar.free.fr/Moi_lecteurmodifiee.zip

Merci beaucoup neamar

Je vais regarder ton code dés demain ou mardi

Merci pour les conseils ,
Pour l'instant, comme je fais des tests et des essais je ne m'embete pas trop pour les propriété (name), j'essai surtout de faire marcher ce que je veux, et aprés je reprendrais tout, en essayant de programmer un peu plus propre


Merci pour les explications et pour les liens ça va m'aider

Bonjour

Encore merci neammar, j'avance pas mal grâce a toi

Pour l'instant j'ai 2 lecteurs et leur listebox.

J'ai réussi a faire en sorte que lorsque l'on doubleclick sur un titre à partir de la listbox, la piste se lance automatiquement.

Maintenant je cherche a pouvoir modifier le volume de l'ensemble des pistes en même temps, je pense que je vais trouver

-------

sinon j'ai un problème, je voudrais profiter du graphique du lecteur windows-mediaplayer (le cadre noir qui joue des graphique), mais quand je lance un deuxième lecteur, le graphique du premier s'arrête, et c'est seulement le second qui joue.
Par contre pour la musique pas de problème les 2 lecteurs jouent bien en même temps...
Je voudrais que le graphique des 2 lecteurs soit actifs en même temps .

Merci




Edité par sasuke83 ( 17/05/2007 16:22:43 )

En fait, la visualisation pompe vachement des ressources systèmes..et elle a été programmée pour ne fonctionner que quand l'apllication est active..je crains qu'il ne sois pas possible de changer cela...

Merci pour l'info neamar

Je vais faire sans alors....

Sinon je galère beaucoup pour pouvoir modifier le volume à partir d'une scrollbar, si jamais tu avais un conseil je suis preneur
(je n'est même pas trouver comment faire un bouton Vol+ et Vol-)

Merci