Discussion :

[Aquillon]

Salut,
je cherche à ouvrir une vidéo à l'aide du composant mediaplayer quand je lance une form mais je n'arrive pas à ouvrir cette vidéo en plein écran.

J'ai trouvé plusieurs bout de code permettant normalement de faire ça mais jusque là, rien n'a fonctionné

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Private Sub LancerUneVideo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Wmp As WindowsMediaPlayer
 
        Wmp = CreateObject("WMPlayer.OCX.7")
        Wmp.openPlayer("D:\Ma musique\Clip\Bodyrockers - I Like The Way You Move.avi")
 
        Do
            Application.DoEvents()
        Loop While Wmp.playState <> WMPLib.WMPPlayState.wmppsPlaying
 
        Wmp.fullScreen = True
 
    End Sub

J'ai aussi essayé avec ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
    Private Sub LancerUneVideo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Wmp As WindowsMediaPlayer
 
        Wmp = CreateObject("WMPlayer.OCX.7")
        Wmp.openPlayer("D:\Ma musique\Clip\Bodyrockers - I Like The Way You Move.avi")
 
        If (Wmp.playState = WMPLib.WMPPlayState.wmppsPlaying) Then
           Wmp.fullScreen = True
        End If
 
    End Sub

Mais dans un cas comme dans l'autre, rien ne se passe

[Poulain]

Je crois que tu as omis de lancer la lecture, donc tu ne peux pas avoir le state = playing, donc pas e plein écran...