Créer un calque

Version imprimable

07/05/2011, 10h57
Claude_Azoulai

Créer un calque

Bonjour à tous

Sur un pictureBox, je voudrais superposer un calque transparent sur lequel je pourrais dessiner avec la méthode Draw ou autre.
Je n'ai pas trouvé de contrôle pouvant fonctionner car même un Panel ou un pictureBox avec la propriété BackColor réglée sur "Transparent" ne l'est pas en fonctionnement.

Si quelqu'un a une idée, elle sera la bienvenue.
Claude Azoulai
PS Je travaille en VB2010
07/05/2011, 13h41
Jerede

Bonjour,

Une pictureBox convient, montre nous ton code qui dessine sur ta pictureBox :ccool:

Merci à Jerede de bien vouloir m'aider

En fait, après la lecture de ta réponse, je me suis apperçu que je n'avais pas besoin de calque.
Mon application est destiné à éclaicir des zones d'ombre laissées par le scanner sur des documents un peu froissés.
Ce programe fonctionne en traitant chaque pixel de l'image d'origine qui est mise dans un pictuBox (pbDroite).
Je voulais donc définir une zone rectangulaire où les pixels ne seraient pas traités, et pour cela je pensais avoir besoin d'un calque pour éviter que le rectangle tracé reste sur l'image après traitement.
Mais c'était un mauvais raisonnement car je traite les pixels de mon image originale et non pas ceux du pictureBox.
Dont acte, et donc mille excuses.

Si tu n'es pas fatigué de moi, il me reste un problème.
Voici le code utilisé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub pbDroite_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseDown Xo = e.X 'X origine Yo = e.Y 'Y origine pbDroite.Cursor = Cursors.Cross End Sub Private Sub pbDroite_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseUp Xf = e.X 'X final Yf = e.Y 'Y final Dim monStylo As New System.Drawing.Pen(System.Drawing.Color.Red) Dim formGraphics As System.Drawing.Graphics formGraphics = Me.pbDroite.CreateGraphics() formGraphics.DrawRectangle(monStylo, New Rectangle(Xo, Yo, Xf - Xo, Yf - Yo)) monStylo.Dispose() formGraphics.Dispose() pbDroite.Cursor = Cursors.Arrow End Sub
Mon rectangle n'apparait que quand je relache le bouton de la souris.
Je pense que je devrais utiliser mouseMove et que à chaque déplacement de la souris, j'efface le dernier rectangle tracé et en dessine un nouveau.
Mais je n'ai pas trouvé la méthone pour effacer le précédent rectangle.

Claude Azoulai

Redéclarer formGraphics à chaque fois n'est pas la meilleure solution.

C'est juste un exemple, j'ai pas vraiment compris ce que vous souhaitiez comme comportement, donc à vous d'adapter. (_g est un Graphics, que j'obtiens dans le ctor de la Form avec maPictureBox.CreateGraphics())

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
        private void pictureBox1_MouseMove(object sender, MouseEventArgs e)
        {
            if (mouseDown)
            {
                Xf = e.X;
                Yf = e.Y;
 
                _g.Clear(pictureBox1.BackColor);
 
                _g.DrawRectangle(Pens.Red, new Rectangle(Xo, Yo, Xf - Xo, Yf - Yo));
            }
        }
 
        private void pictureBox1_MouseDown(object sender, MouseEventArgs e)
        {
            Xo = e.X;
            Yo = e.Y;
            mouseDown = true;
        }
 
        private void pictureBox1_MouseUp(object sender, MouseEventArgs e)
        {
            mouseDown = false;
        }

Merci à Jerede

Ton exemple, bien que devant être du C, m'a bien servi.
Comme je suis, malgré mes 78 ans, un débutant en VB.Net, car je n"en connais que largement moins de 1% des instructions, j'ai tatonné un peu pour bien placer les déclarations de variable.
J'ai eu un petit souci à cause de l'instruction "_g.Clear(pbDroite.BackColor)" car l'image qui étatit placée sur le picturBox disparaissait aussi.
J'ai rajouté deux instructions et cela fonctionne à peu près bien (l'mage est instable pendant le déplacement de la souris, mais reste visible à la fin du tracé de mon rectangle).
Voici le code, sans aucune prétention (cela peut servir à d'autres lecteurs)

Code:

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
 
Public Class Form1
    Dim _g As System.Drawing.Graphics
    Dim monStylo As New System.Drawing.Pen(System.Drawing.Color.Red)
    ...........................................
 
    ...........................................
    Private Sub pbDroite_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseDown
        MouseDovn = True
        Xo = e.X    'X origine
        Yo = e.Y    'Y origine
        _g = pbDroite.CreateGraphics
        pbDroite.Cursor = Cursors.Cross
    End Sub
 
    Private Sub pbDroite_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseMove
        Xf = e.X    'X final
        Yf = e.Y    'Y final
        If MouseDovn Then
            _g.Clear(pbDroite.BackColor)
            pbDroite.Image = MaPhoto2   ' Rajouté car le document
            Application.DoEvents()            ' était effacée
            _g.DrawRectangle(monStylo, New Rectangle(Xo, Yo, Xf - Xo, Yf - Yo))
        End If
    End Sub
 
    Private Sub pbDroite_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseUp
        Xf = e.X    'X final
        Yf = e.Y    'Y final
        pbDroite.Cursor = Cursors.Arrow
        MouseDovn = False
    End Sub
End Class

En tous les cas merci de m'avoir aidé.

Claude Azoulai

Il ne faut pas redéclarer le graphics à chaque fois.

Code:

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
    Private _g As System.Drawing.Graphics
    Private monStylo As New System.Drawing.Pen(System.Drawing.Color.Red)
    Private _mouseDown As Boolean
    Private Xo, Yo, Xf, Yf As Integer
 
    Sub New()
        InitializeComponent()
        _g = pbDroite.CreateGraphics()
        _g.SmoothingMode = Drawing2D.SmoothingMode.HighSpeed
    End Sub
 
 
    Private Sub pbDroite_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseDown
        Xo = e.X
        Yo = e.Y
        _mouseDown = True
        Cursor = Cursors.Cross
    End Sub
 
    Private Sub pbDroite_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseMove
        If _mouseDown Then
            Xf = e.X
            Yf = e.Y
 
            pbDroite.Refresh()
 
            _g.DrawRectangle(monStylo, New Rectangle(Xo, Yo, Xf - Xo, Yf - Yo))
        End If
    End Sub
 
    Private Sub pbDroite_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbDroite.MouseUp
        _mouseDown = False
        Cursor = Cursors.Arrow
    End Sub

Bonne chance :)