[VB] windows media player Fermé

Question

Voila je veux faire une petit programme contenant le lecteur windows media sur visual basic, et une liste de divers video a regarder. 
Je veux que lorsque je clique sur un bouton d'option ou de texte s'ouvre la video correspondante. 

J'ai donc taper ceci : 
========================================== 
Private Sub Label1_Click() 
WindowsMediaPlayer1.URL = "C:\Docu.....\NomDuFichier.Extension" 
End Sub 
========================================== 

Cela marche très bien mais seulement sur mon ordinateur, et si je change le fichier d'emplacement cela bugera tout. 
J'aimerais donc savoir s'il serait possible " d'incorporer " au programme les videos ou faire une recherche dans tout les repertoires, disque,.... de l'ordinateur pour trouver et ouvrir le fichier. 

J'espere que vous trouverez une solution, merci !

lermite222 · Answer

Bonjour,
Apparement tu n'est pas en VB6, mais il y a certainement l'équivalent dans ton VB.
En VB6 je mettrais déjà une ligne de détection erreur, ce qui empècherrait le plantage genre..
========================================== 
Private Sub Label1_Click() 
on error goto DétectErreur
WindowsMediaPlayer1.URL _
 "C:\Docu.....\NomDuFichier.Extension" 
exite sub
DétectErreur:
msgbox "fichier introuvable"

End Sub 
========================================== 
Pour résoudre le problème de trouver les fichiers, une piste
Faire un sous répertoir de l'EXE et y mettre les # vidéo
le path serrait alors App.Path & "\SousRépertoir\" et après le nom du #
Comme cela, quand tu copie sur un autre ordi, tu copie tout et les # sont toujour à la même place.
Pour faire une recherceh de fichiers il y a le CommunDialog ou bien les OCX (en VB6) qui ont les fonctions souhaitées.
A+
louis

algabow · Answer

Ouai mais comment on créé un sous repertoire de l'exe justement ...?

lermite222 · Answer

ah bon, si tu ne sais pas créer un sous-réperertoir ont va te l'expliquer.
Mais comme tu ne dit pas sous quel VB tu travail !!
Dans l'explorateur de fichier tu sélectionne le répertoir ou ton projet est sauver, sélectionner le répertoir (qu'il soit en surbrillance). Ensuite, dans le menu du haut sélectionner Fichier/nouveaux/Fichier ou dossier
Un répertoir se met dans le répertoir de ton appli avec Nouveau Répertoir et le curseur dedans, tu modifie le nom (ex : RépMusique) et voila, le tour est joué.
tu met tes musique dans ce rép .
Pour les retrouver dans ton appli c'est
en VB6 ..        
Dans un module public Chemin as string
ou en déclaration form Dim Chemin as string
dans load_Form
Chemin=app.path & "\" & RépMusique & "\"
et pour sélectionner ta musique
...Url=Chemin & NomFichier
Thèoriquement le nom du fichier a déjà l'extention.
A+
louis

[VB] windows media player

3 réponses

Discussions similaires