cs_Skeatwin
Messages postés25Date d'inscriptionsamedi 17 mai 2008StatutMembreDernière intervention19 juillet 2011
-
30 juin 2011 à 12:01
cs_Skeatwin
Messages postés25Date d'inscriptionsamedi 17 mai 2008StatutMembreDernière intervention19 juillet 2011
-
4 juil. 2011 à 15:35
Bonjour,
Je veut lire une vidéo en plein écran, donc ça pas de souci j'ai trouver comment faire mais le pb c'est une fois que la vidéo est terminé le plein écran ne se ferme pas.
J'ai donc tenter de faire un Video.Dispose() dans l’événement Ending du contrôle mais comme la vidéo affiché est un objet local, cela me retourne un NullReferenceException (logique ^^).
Voilà mon code:
Imports Microsoft.DirectX.AudioVideoPlayback.Audio
Public Class Form1
Dim WithEvents Video As Microsoft.DirectX.AudioVideoPlayback.Video
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
Try
Video = New Microsoft.DirectX.AudioVideoPlayback.Video(OpenFileDialog1.FileName)
Video.Fullscreen = True
Video.Play()
Catch ex As Exception
MsgBox("Erreur: " & ex.Message, 16, "Erreur")
End Try
End If
End Sub
Private Sub Video_Ending(ByVal sender As Object, ByVal e As System.EventArgs) Handles Video.Stopping
Video.Dispose()
End Sub
End Class
Donc si vous avez une idée pour fermer cette vidéo une fois lu, ou tout simplement comment accéder à cet objet local dans un autre Sub.