Cette source toute simple a un objectif très précis :
Gérer le glisser-déposer de fichiers provenants d'un WebBrowser, explorateur windows, bureau ou tout ce que vous voulez, vers un controle Windows Media Player présent sur la form.
La façon dont je procède n'est pas très optimisée je sais, si vous savez comment faire mieux je vous écouterais très attentivement.
Dans cette source, détails au niveau :
- du glisser déposer avec l'environnement windows (tout ce qui est exterieur au programme comme le bureau etc..)
- du WebBrowser, exemple : afficher le Poste de Travail
- du controle ActiveX WMP : gérer la playlist, jouer des fichiers, ajouter des fichiers à la playlist... (juste l'essentiel)
Source / Exemple :
Je vous met ici quelques bouts de code intéressants :
' Positionne le navigateur sur Poste de travail
Browser.Navigate "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
' Pour qu'une PictureBox accepte les Drag and Drop du bureau, explorateur windows etc...
' Il faut mettre ses propriétés :
pbx.OLEDragMode = 1 - Automatique
pbxDrop.OLEDropMode = 1 - Manual
' Pour composer une playlist :
' Le Type des fichiers du WMP
Dim wmpMedia As IWMPMedia
' Efface la playlist actuelle
wmpPlayer.currentPlaylist.Clear
' Pour chaque fichier :
' On transforme le fichier en élément du WMP
Set wmpMedia = wmpPlayer.newMedia(Fichier)
' On l'ajoute à la Playlist
wmpPlayer.currentPlaylist.insertItem T, wmpMedia
' PLAY
wmpPlayer.Controls.play
Conclusion :
Je précise que je n'ai ajouté aucune fonction superficielle comme les boutons de navigation etc...
ça n'est pas le but de la source, c'est seulement un source qui explique qqch de précis donc pas la peine de demander d'améliorer tel ou tel truc si c'est à propos d'apparence ou autre.
Par contre je vous encourage à transformer cela en véritable application si vous le voulez ;)
J'espère que ça vous servira ;)
Essaye de tatonner ou de rechercher sur le site
Voila, c'est que moi je me suis crée un serveur avec toute mes chanson qui sont sur internet... et avec mon logiciel je me connecte sur mon server, et j'aimerais pouvoir écouter mes chansons à partir de mon logiel sans être oubliger de les téléchargers et des les ouvrirs avec WindowsMedia pour les lires.
Alors c'est ça mon problème, merci de m'aidé :) !
Pour le fichier mp3 par exemple ça n'est pas seulement un lien hypertext, et si j'ai bien compris tu veux qu'on puisse sélectionner seulement des fichiers compatibles au windows media player (fichiers media).
Pour ça il suffit de tester l'extension du fichier qui a été déposé dans la liste :
' Pour chaque fichier dpos
For Each Fichier In Data.Files
' On le teste
If Right(Fichier, 4) = ".mp3" Then
' On l'ajoute la liste
List1.AddItem Fichier
' On transforme le fichier en lment du WMP
Set wmpMedia = wmpPlayer.newMedia(Fichier)
' On l'ajoute la Playlist
wmpPlayer.currentPlaylist.insertItem T, wmpMedia
T = T + 1
End If
Next
Ici ça n'acceptera que les fichiers mp3, à toi de rajouter les autres types de fichiers media
a+
MadMatt
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.