Salut !

Je débute dans la manipulation de Drawing.Graphics et je n'arrive même pas à tracer une ligne sur un Form.

J'ai ce code (pourtant simple) :

Public Class Form1
Dim g As Graphics
Dim p As Pen

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
g = Me.CreateGraphics()
p = New Pen(Color.Blue, 7)
g.DrawLine(p, 1, 1, 100, 100)
End Sub
End Class

Je n'ai pas d'erreur mais aucune ligne n’apparaît ! Quelqu'un saurait-il comment faire ?
Merci d'avance.

Salut, tu dois le mettre dans l'event paint, pas load :

Public Class Form1
Dim g As Graphics
Dim p As Pen

Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
g = Me.CreateGraphics()
p = New Pen(Color.Blue, 7)
g.DrawLine(p, 1, 1, 100, 100)
End Sub
End Class

Donc si je veux faire une Sub dans ce genre là :

Private Sub relier_deux_points(parent As Control, pt1 As Point, pt2 As Point)

je suis obliger de passer par parent_Paint ?

• obligé