Drag and drop d'un webbrowser ou explorateur vers composant windows media player

Soyez le premier à donner votre avis sur cette source.

Vue 12 066 fois - Téléchargée 940 fois

Description

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 ;)

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Cacophrene
Messages postés
263
Date d'inscription
lundi 29 mars 2004
Statut
Membre
Dernière intervention
4 mars 2008
-
Un grand merci à celui qui a su allier l'efficace et l'utile !
cs_MasterHack
Messages postés
586
Date d'inscription
jeudi 18 septembre 2003
Statut
Membre
Dernière intervention
13 février 2008
1 -
Bravo Matt c'est supper util 10/10
hardcore32
Messages postés
19
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
21 octobre 2005
-
J'aimerais savoir, (toujours dans un WebBrowser) si mon fichier .mp3 es un lien HyperText, par quoi je vais devoir remplacer le : Data as * DataObject * Pour que l'érreur de type de fichier qui ne correspond pas n'affiche plus !
MadM@tt
Messages postés
2215
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
16 juillet 2009
-
Il y a 2 questions en une je crois, je vais essayer de répondre.
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
hardcore32
Messages postés
19
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
21 octobre 2005
-
Oui, merci tu as répondue a une des deux questions, pour l'autre je n'ai peut-être pas été très clair. Dans ta source toi il cherche dans ton ordinateur les chansons qui y sont, mais moi je suis sur internet, alors ce que je voudrais, c'est quand quand j'ai un lien hypertext qui me redirige vers un server avec une chansons à télécharger... que la source à la place de prendre l'emplacement du fichier que on a DragDrog à partir de notre ordinateur, prenne l'adresse URL du fichier .Mp3 sur internet et fasse un : WindowsMediaPlayer1.LoadUrl (http://Nom_Du_Server.com/Nom_De_La_Chansons.Mp3).

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é :) !

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.