Graphique dans PictureBox

Version imprimable

Bonjour,

avec le code suivant je veux tout betement tracer une ligne dans une PictureBox, soit en style "Solid" avec le bouton1, soit en style "pointille" avec le bouton2.
Je veux egalement que ce graphique soit persistant meme si il est recouvert momentanement par une autre fenetre par exemple. C'est pourquoi j'utilise 'Invalidate' qui, si j'ai bien compris, force le retracage du controle vise.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Imports System.Drawing Public Class Form1 Dim Crayon As Pen = New Pen(Color.Black) Public g As Graphics Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load g = Graphics.FromHwnd(Me.PictureBox1.Handle) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Crayon.DashStyle = Drawing2D.DashStyle.Solid PictureBox1.Invalidate() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Crayon.DashStyle = Drawing2D.DashStyle.Dot PictureBox1.Invalidate() End Sub Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint, Me.Paint g.DrawLine(Crayon, 10, 10, 100, 100) End Sub End Class
Il y a 2 choses que je ne comprends pas :

1/ Je suis oblige d'ajouter 'Me.Paint' dans les Handles de l'evenement PictureBox1_Paint pour voir ma ligne, du coup celle ci est tracee des le demarrage de la feuille ce que je ne veux pas et je pensais que le Handle PictureBox1.Paint suffisait mais visiblement non, pourquoi ?

2/ Si je clique sur le bouton 1 ou 2, ma ligne est effacee mais n'est pas retracee tant que le curseur de souris est au dessus du bouton sur lequel je viens de cliquer. Pqreil, si jappuis sur la touche 'Entree' quand un bouton a le focus, je dois ensuite taper Tabulation pour donner le focus a l'autre bouton pour que la ligne soit tracee, la encore : pourquoi et y a t'il un moyen de corriger ce probleme ?

Merci par avance pour votre aide.

A ta place j'oublierais l'evenement Paint (je ne vois pas trop a quoi il sert en l'occurence...)
J'ai testé ce code, ca marche impec ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Imports System.Drawing
Public Class Form1
    Public Sub Trait(ByVal Style As Drawing2D.DashStyle)
        Dim Crayon As Pen = New Pen(Color.Black)
        Crayon.DashStyle = Style
        Dim g As Graphics = PictureBox1.CreateGraphics
        g.Clear(PictureBox1.BackColor)
        g.DrawLine(Crayon, 10, 10, 100, 100)
        g.Flush()
        Crayon.Dispose()
        g.Dispose()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Trait(Drawing2D.DashStyle.Solid)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Trait(Drawing2D.DashStyle.Dot)
    End Sub
End Class

29/03/2008, 11h20
Kelpan
Poses-toi la question :
A quel moment l'évenement Paint du composant PictureBox est-il provoqué ?
Cela répondra à toutes tes questions.

La solution que propose Totanne n'est pas tout à fait correct car le dessin s'efface si la picturebox est couverte.

La solution est de passer par une image.
Code:

1 2 3 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.PictureBox1.Image = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) End Sub
Ensuite la méthode de Totanne peut s'appliquer sauf que dans la procédure "Trait" tu vas chercher le graphics de ton image
Code:

1 2 3 4 5 6 7 Public Sub Trait(ByVal Style As Drawing2D.DashStyle) ... Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) ... End Sub
29/03/2008, 14h08
OhMonBato

Bonjour,

merci de vos reponses meme si elles ne repondent pas directement a mes questions ;) Je ne peux pas tester de suite vos reponses car ma machine equipee en VB2008 n'est pas celle ci mais je copie vos codes.

Si je voulais passer par l'evenement Paint c'est parce que j'avais vu dans MSDN que c'etait le moyen le plus simple pour rendre une image persistante ce qui est essentiel pour moi. C'est donc pour appeler l'evenement Paint que j'utilisais Invalidate (la aussi trouve dans MSDN) et justement je me suis pose la question de savoir quand mon controle Picture serait redessine ;) Je pensais qu'il le serait en utilisant Invalidate qui me semble etre la pour ca, mais visiblement la reponse n'est qu'un "oui" partiel puisque le bouton qui "appelle" ce Invalidate doit perdre le focus et la justement ca depasse mes competences.
Le but du jeu pour moi est de tracer une courbe de donnees en temps reel et je me vois mal convertir mon graphique en image a chaque acquisition, celle ci se faisant a au moins 10 hertz.
Venant de VB6, j'avoue etre totalement decontenance par la logique de DotNet et par la perte de fonctions VB6 que je trouvais bien utiles. J'ai du boulot avant de comprendre le binz. :mouarf:
29/03/2008, 15h47
Kelpan

Citation:

Envoyé par OhMonBato

Le but du jeu pour moi est de tracer une courbe de donnees en temps reel et je me vois mal convertir mon graphique en image a chaque acquisition, celle ci se faisant a au moins 10 hertz.

L'image tu ne la créé qu'une seule fois dans le load de ton Form, au lieu de dessiner sur le picturebox, tu dessines sur l'image, c'est cela qui va permettre de garder un dessin persistant... pas besoin d'invalidate ...
29/03/2008, 20h20
Totanne

Tout a fait d'accord avec Kelpan
Je travaille toujours sur une pictureBox via une image mais j'avais cru comprendre sur un autre post (mise à l'echelle d'une image) que OhMonBato répugnait à les utiliser.
Je ne m'était pas trompé ;)

Je ne repugne pas a utiliser quoi que ce soit Totanne mais peu importe. J'ignorais simplement cette methode... je debute avec VB2008 comme je l'ai deja dit.
Enfin bref, j'ai utilise le code de Totanne (qui effectivement ne laissait pas le graphique permanent) et en ajoutant la modification proposee par Kelpan et la plus rien du tout quand je cliquais sur les boutons ! ;)
J'ai donc ajoute un petit Invalidate (je sais, quand j'ai une idee en tete...) et du coup ca fonctionne parfaitement, merci donc encore a vous 2.
Si vraiment le Invalidate n'est pas une bonne solution, je suis preneur pour tout autre idee mais en attendant je considere le sujet comme resolu.
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 Imports System.Drawing Public Class Form1 Public Sub Trait(ByVal Style As Drawing2D.DashStyle) Dim Crayon As Pen = New Pen(Color.Black) Crayon.DashStyle = Style 'Dim g As Graphics = PictureBox1.CreateGraphics Dim g As Graphics = Graphics.FromImage(PictureBox1.Image) g.Clear(PictureBox1.BackColor) g.DrawLine(Crayon, 10, 10, 100, 100) g.Flush() PictureBox1.Invalidate() Crayon.Dispose() g.Dispose() End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Me.PictureBox1.Image = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Trait(Drawing2D.DashStyle.Solid) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Trait(Drawing2D.DashStyle.Dot) End Sub End Class

30/03/2008, 19h12
Kelpan
En effet, de mon côté, j'avais mis :
Code:

1 2 Picturobox1.Refresh