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

Soyez le premier à donner votre avis sur cette source.

Vue 12 006 fois - Téléchargée 939 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

Commenter la réponse de Cacophrene

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.