Bonjour à tous,

J'ai un soucis avec la nouvelle classe que j'ai decouverte, la classe Mediaplayer. Je voulais faire un lecture de vidéo tout bète, mais je n'y arrive pas ...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Imports System.Windows.Media
 
Public Class Form1
 
    Dim media = New VideoDrawing
    Dim toutou = New MediaPlayer
    Dim monURI = New Uri("D:\Manga\Elfen Lied\Elfen Lied-01 Une rencontre fortuite.avi")
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        toutou.open(monURI)
 
    End Sub
 
    Private Sub Form1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
 
        Try
            media.Rect = New System.Windows.Rect(100, 100, 100, 100)
            media.player() = toutou
            toutou.play()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
End Class
Ca lance la video (en tout cas le son) mais sur le form, rien

Quelqu'un aurai une idée ? Merci d'avance d'une réponse !

Ps: excusé mes noms de variables de testes un peu (beaucoup) merdique ^^

Edit: le ex.message n'indique rien de particulier, aucune erreurs. Et j'ai utilisé ça pour le faire http://msdn.microsoft.com/en-us/libr...eodrawing.aspx