Discussion :

[Pierre-Ernest]

Bonjour à tous
J'ai une liste de fichiers vidéo sur un formulaire. Je peux (évidemment) colorer les noms en bleu et les souligner pour faire comprendre au lecteur qu'il peut voir le film en cliquant sur son nom.
Ma question est simplement : quel code mettre sous le clic ?
J'ai essayé "Shell" comme ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ListeDesVideos_Click(sender As Object, e As EventArgs)
        Shell("C:\Users\pierr\Videos\NomDeFichier.avi")
    End Sub

Mais il ne se passe rien.
Quelqu'un a-t-il une idée pour résoudre mon problème ?

[ProgElecT]

Salut

Il te manque le chemin et non du programme externe qui va jouer ton fichier.
Exemple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ListeDesVideos_Click(sender As Object, e As EventArgs)
        Shell("lecteur:\emplacementdudossier\wmplayer.exe C:\Users\pierr\Videos\NomDeFichier.avi")
    End Sub

[Pierre-Ernest]

J'ai essayé avec ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Private Sub ListeDesVideos_Click(sender As Object, e As EventArgs) Handles ListeDesVideos.Click
        Shell("C:\Program Files (x86)\Windows Media Player\wmplayer.exe D:\Documents\aVBProjects 2020\Dominique\bin\Debug\Fichier1.avi")
    End Sub

ça ne marche pas.
Je pense qu'il y a peut-être un problème d'espaces. Quoique le string est entre guillemets (??).

Peut-on m'éclairer ?

[Pierre-Ernest]

J'ai mis une copie du fichier 'wmplayer.exe' et une copie du fichier à lire à la racine d'un disque dur. Tout marche !
Merci !

[ProgElecT]

Re

C'est peut être un problème de caractères espace dans le chemin de l’exécutable.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell("""C:\Program Files (x86)\Windows Media Player\wmplayer.exe"" ""D:\Documents\aVBProjects 2020\Dominique\bin\Debug\Fichier1.avi""")

en ajoutant des "" cela devrait le faire si tu veux utiliser le wmplayer.exe d'origine.