dessiner dans picturebox à partir d'une autre form

Version imprimable

Bonjour à tous,

Lorsque je clique sur le bouton, la form7 s'affiche mais il n'y a pas les 3 traits.
Je ne comprend pas pourquoi car au début j'avais mis le bouton dans le form7 et cela fonctionnait.
Quelqu'un pourrait t'il me dire pourquoi cela ne fonctionne pas dans ce cas?
Merci

Cordialement,
Code:

1 2 3 4 5 6 7 8 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim g As Graphics g = Form7.PictureBox1.CreateGraphics g.DrawLine(Pens.Red, 10, 40, 100, 40) g.DrawLine(Pens.Red, 10, 80, 100, 40) g.DrawLine(Pens.Red, 10, 0, 100, 40) Form7.Show() End Sub

09/04/2012, 19h20
shayw

Salut

les fonctions graphiques doivent etre appellé dans l'evenement paint
du control container où tu veux dessiner tes lignes etc
donc si tu veux dessiner des lignes dans ta picturebox
il faut appeller les fonctions graphiques dans l'évenement paint de ta picturebox
09/04/2012, 20h30
doudou47

Cela ne fonctionne toujours pas ou alors je ne fais pas ce qu'il faut.
Comment déclencher ce qu'il y a dans le paint à partir d'un bouton dans une autre form?
Auriez vous un exemple svp

pourquoi tu écris le code graphique dans l'évenement du bouton d'une autre
form et nom dans le paint de ta picturebox de ta form7

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 Public Class Form7
 
  Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.DrawLine(Pens.Red, 10, 40, 100, 40)
        e.Graphics.DrawLine(Pens.Red, 10, 80, 100, 40)
        e.Graphics.DrawLine(Pens.Red, 10, 0, 100, 40)
    End Sub
 
end class
 
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
          Form7.Show()
    End Sub

C'est exactement ce que j'ai fait après votre première réponse mais cela ne fonctionne toujours pas

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
    Private Sub PictureBox1_Paint(sender As System.Object, e As System.EventArgs) Handles PictureBox1.Paint
        Dim g As Graphics
        g = PictureBox1.CreateGraphics
        g.DrawLine(Pens.Red, 10, 40, 100, 40)
        g.DrawLine(Pens.Red, 10, 80, 100, 40)
        g.DrawLine(Pens.Red, 10, 0, 100, 40)
    End Sub
 
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Form7.Show()
    End Sub

10/04/2012, 09h01
Pol63

dans paint il ne faut pas faire creategraphics, mais utiliser e.Graphics