WindowsMediaPlayer

Bonjour,

Voulant intégrer une vidéo dans une Useform, j'ai écrit le code suivant dans Useform_Initialize

WindowsMediaPlayer1.Visible = True

WindowsMediaPlayer1.fullScreen = False

WindowsMediaPlayer1.uiMode = "mini"

WindowsMediaPlayer1.windowlessVideo = False

WindowsMediaPlayer1.Enabled = True

WindowsMediaPlayer1.Width = 294

WindowsMediaPlayer1.Height = 240

WindowsMediaPlayer1.stretchToFit = True

'WindowsMediaPlayer1.settings.autoStart = False

WindowsMediaPlayer1.Url = Cells(1, 2) & "\" & Cells(Ligne, 1) 'Nom du fichier vidéo

Lorsque la Useform s'affiche, la fenêtre WMP est bien présente avec ses bonnes dimensions. Mais lorsque j'appuie sur le bouton "Play", la vidéo passe automatiquement en FullScreen.

Quelqu'un peut-il m'indiquer comment jouer la vidéo dans la fenêtre définie de WMP ?

Avec mes remerciements

Cdlt

Philbec

Bonjour Philbec,

je mettrais "False" à la place de "True" dans

WindowsMediaPlayer1.stretchToFit = True

Bonsoir njhub

Modifier (WindowsMediaPlayer1.stretchToFit = True) ne change rien. J'ai ajouté une procédure permettant de tester le changement d'état de WMP (voir ci-dessous). Lorsque je clique sur le bouton "Play", je rentre dans cette procédure et j'affiche MsgBox "Play". Tant que je ne valide pas MsgBox, la vidéo s'affiche correctement en mode réduit. Dès que je valide MsgBox, c'est-à-dire que je sors de la procédure (Changement d'état), la vidéo passe en fullscreen.

Bonne soirée

Cdlt

Philbec

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)

WindowsMediaPlayer1.Width = 294

WindowsMediaPlayer1.Height = 240

Select Case NewState

Case 0: MsgBox "Undefined"

Case 1: MsgBox "Stop"

Case 2: MsgBox "Paused"

Case 3: MsgBox "Play"

Case 4: MsgBox "ScanForward" 'Avance rapide

Case 5: MsgBox "ScanReverse" 'Retour rapide

Case 6: MsgBox "Buffering"

Case 7: MsgBox "Waiting"

Case 8: MsgBox "MediaEnded"

Case 9: MsgBox "Transitioning" 'Préparation nouvelle séquence

Case 10: MsgBox "Ready"

Case 11: MsgBox "Reconnecting"

End Select

End Sub

Bonsoir,

J'ai à priori résolu mon problème. Dans l'onglet Propriétés de WindowsMediaPlayer de la Useform, j'ai modifiéla propriété "Personnalisé" (voir image jointe).

Cdlt

Philbec