Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Dim ref As New Point(10, 200)
Dim point As New Point(100, 100)
Dim NewPoint As New Point(5, 5)
Dim NewGraphic As Graphics = Me.CreateGraphics()
NewGraphic.DrawLine(Pens.Black, ref.X, ref.Y, ref.X + 150, ref.Y)
NewGraphic.DrawLine(Pens.Black, ref.X, ref.Y, ref.X, ref.Y - 150)
NewGraphic.DrawLine(Pens.Red, ref.X, ref.Y, ref.X + point.X, ref.Y - point.Y)
NewGraphic.Dispose()