Tu veux dire que tu n'arrive pas à regler le volume de WMP ou que tu n'arrive pas à utiliser un scrollbar ?
Pour utiliser un scroll bar, c'est comme ca :

'Dans ton form_load (ou lors de la création)
hscrollbar.min= la valeur minimale que tu veux
hscrollbar.max = la valeur max

'Et dans la sub :
Private Sub HScrollbar_Change()
MsgBox HScrollbar.Value
End Sub

R2EDIT

Edité par sasuke83 ( 17/05/2007 17:14:51 )

Oui c'est ca...sauf que je ne suis pas sur du :
WindowsMediaPlayer1.settings.volume
en tout cas, la seconde partie de l'égalité est bonne !

je me suis trompé j'ai modif mon post d'avant ...

ça marche bien avec :

Private Sub Form_Load()
VScroll1.Min = 1
VScroll1.Max = 100
End Sub

et

Private Sub VScroll1_Change()
WindowsMediaPlayer1.settings.volume = VScroll1.Value
End Sub

Merci

Sinon, tu serrais pas comment on fait pour insérer un médiaplayer simple, plutot que le lourd windowsmediaplayer ?
Parce que vu les programmes sur VBfrance, je ne pense pas qu'il se soit servit du meme lecteur que moi.

Autre question, pense tu qu'il soit possible de contrôler plusieur lecteur avec le même scrollbar ?
par exemple :

WindowsMediaPlayer1.settings.volume and WindowsMediaPlayer2.settings.volume = VScroll1.Value

je ne sais comment gérer ça, sous quickbasic un simple "and" suffisait, mais là ça ne marche pas ...

merci

Tout simplement :
WindowsMediaPlayer1.settings.volume= VScroll1.Value
WindowsMediaPlayer2.settings.volume = VScroll1.Value
Et oui, il faut deux lignes

Sinon, utilise le lecteur mci...

http://www.developpez.com/vbasic/tutoriel/tutoriel23.php

Il est inclus d'origine dans windows, donc ca allège !

merci neamar

Bonjour,

Voilà je pense avoir fini mon lecteur
pour l'instant, car je rajouterais surement plus tard des outils permettant de choisir le temps après lequel on veut qu'un piste se lance...

J'ai essayé de mettre les commentaires (ne pas faire attention aux fautes d'orthographe lol)

Je met le .zip si cela intéresse quelqu'un:
http://animes-load.fr/Moi_lecteur_v2.zip

J'aimerais ton avis neamar

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

Si quelqu'un pouvait m'aider pour les commentaires, il y a 2 parties du code que je ne comprend pas vraiment.

Il y a le code qui permet d'utiliser le bowser de windows:

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

et plus compliqué, le code qui permet de créer une playlist, je ne comprend quasiment rien ... :

Private Sub Command1_Click()
Dim var_temporaire As Long

' * inutile - pour me rapeler comment charger une piste
'WindowsMediaPlayer1.URL = "C:\Loisir\Music\Albums\ma-musique.mp3"



Dim Xwmp As IWMPMedia

'nettoye la Playlist en cours avant de réalimenter la liste
WindowsMediaPlayer1.currentPlaylist.Clear
For var_temporaire = 0 To ListDesItemsPlayList.ListCount
Set Xwmp = WindowsMediaPlayer1.newMedia(ListDesItemsPlayList.List(var_temporaire))
WindowsMediaPlayer1.currentPlaylist.insertItem var_temporaire, Xwmp
Next
Exit Sub

Dim Pl As IWMPPlaylist
Dim j As Integer, i As Integer

'Définit la playlist active
Set Pl = WindowsMediaPlayer1.currentPlaylist

'compte le nombre de séquences dans la playList
j = Pl.Count
If j = 0 Then MsgBox "il n'y a pas d'éléments dans la playlist"

'Boucle sur les séquences
For i = 0 To j - 1
'MsgBox Pl.Item(i).Name
ListDesItemsPlayList.AddItem Pl.Item(i).Name
'
'pour afficher la source :
'MsgBox Pl.Item(i).sourceURL
'
Next i

End Sub

Merci

Edité par sasuke83 ( 18/05/2007 16:26:11 )

Private Sub Command4_Click()
Browser.FileName = ""
//ceci définit le fichier courant. Dans ton cas, ce n'est pas très utile, mais cela permet sinon de détecter une erreur (quand la personne clique sur annuler par exemple)

Browser.Filter = "Fichier Audio (*.mp3)|*.mp3|Tout les fichiers(*.*)|*.*"
//Ca c'est le filtre. En gros, ca dit : "Par défaut, n'affiche que les fichiers mp3 dont l'extension est *.mp3 (le * symbolise 'n'importe quoi'). De plus, proipose une option pour afficher tout les types de fichiers : *.*. Si tu ne voulais autoriser qu'un seul type de fichier, tu aurais mis ca :
Browser.Filter = "Fichier Audio (*.mp3)|*.mp3"

Browser.ShowOpen
//Instruction très simple, qui ouvre la fenetre. Dans d'autres applications, tu auras peut être besoin de ShowPrinter (montre la liste des imprimatnes et les options d'impression), ShowColor (montre toutes les couleurs systèmes, comme dans Patin quand tu clique sur Couleurs=>Modifier les couleurs, ou ShowFont, pour afficher une liste des polices et des options de mise en forme.
(comme dans Word, quand tu fais clic droit=>Polices). L'interet étant bien sur que toi, tu n'as rien à programme

If Browser.FileName = "" Then Exit Sub
//si on a cliqué sur annuler, justement...on arrete, pour ne pas faire planter

ListDesItemsPlayList.AddItem Browser.FileName
//et enfin on ajoute à la playlist le chemin du fichier
End Sub

Pour le second code :

Private Sub Command1_Click()
Dim var_temporaire As Long

' * inutile - pour me rapeler comment charger une piste
'WindowsMediaPlayer1.URL = "C:\Loisir\Music\Albums\ma-musique.mp3"



Dim Xwmp As IWMPMedia

'nettoye la Playlist en cours avant de réalimenter la liste
WindowsMediaPlayer1.currentPlaylist.Clear
//supprime toutes la playlist en remmettant à zéro


For var_temporaire = 0 To ListDesItemsPlayList.ListCount
//pour chaque objet dans listdesitemsplaylist,
Set Xwmp = WindowsMediaPlayer1.newMedia(ListDesItemsPlayList.List(var_temporaire))
//enregistrer l'item comme un nouveau media pour wmp
WindowsMediaPlayer1.currentPlaylist.insertItem var_temporaire, Xwmp
//l'ajouter à la PL
Next
Exit Sub

Dim Pl As IWMPPlaylist
Dim j As Integer, i As Integer

'Définit la playlist active
Set Pl = WindowsMediaPlayer1.currentPlaylist

'compte le nombre de séquences dans la playList
j = Pl.Count
If j = 0 Then MsgBox "il n'y a pas d'éléments dans la playlist"

'Boucle sur les séquences
For i = 0 To j - 1
'MsgBox Pl.Item(i).Name
ListDesItemsPlayList.AddItem Pl.Item(i).Name
'
'pour afficher la source :
'MsgBox Pl.Item(i).sourceURL
'
Next i

End Sub

Je vais regarder ton code...

merci neamar

C'est vraiment simpas de m'aider

Maintenant je comprend mieu

Tu me dira ce que tu pense du tout

merci