Discussion :

[younesssoleil]

Bonjour;
Je développe une application sous VB 2010 express, j'utilise la fonction ci-dessous pour dessiner des traits

Code :

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

PictureBox1.CreateGraphics.FillEllipse(mybrush, e.X, e.Y, 10, 10)

j'ai également un boutton Play qui me permet de lancer une video

Code :

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

1
2
AxVLCPlugin21.playlist.add("C:\Users\YMRA\Videos\test.wmv")
        AxVLCPlugin21.playlist.play()

Mon problème est que je n'arrive pas a dessiner au dessus de la vidéo.
Merci de votre aide.

voici le code globale.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Public Class Form1
 
    Dim down As Boolean = False
    Dim mybrush As Brush = Brushes.Black
 
 
    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If down = True Then
            PictureBox1.CreateGraphics.FillEllipse(mybrush, e.X, e.Y, 10, 10)
 
 
        End If
    End Sub
 
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
 
        down = True
    End Sub
 
    Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        down = False
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        mybrush = Brushes.Red
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        mybrush = Brushes.Blue
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        mybrush = Brushes.White
 
    End Sub
 
    'Private Sub AxVLCPlugin21_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxVLCPlugin21.Enter
 
    'End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        AxVLCPlugin21.playlist.add("C:\Users\YMRA\Videos\test.wmv")
        AxVLCPlugin21.playlist.play()
 
    End Sub
 
 
 
End Class

[younesssoleil]

Bonjour;

Merci de me faire un retour svp...