Discussion :

[doudou47]

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 :

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

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

[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

[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

[shayw]

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 :

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

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

[doudou47]

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

Code :

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

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

[Pol63]

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