This code shows how to draw a curve in a picture box using system.Graphics
imports system.Graphics //namespace
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim G As Graphics
G = PictureBox1.CreateGraphics
Dim points() As Point = {New Point(20, 20), New Point(120, 230), New Point(320, 120), New Point(420, 220)}
G.DrawCurve(Pens.Black, points, 0.1)
G.DrawCurve(Pens.AliceBlue, points, 0.5)
G.DrawCurve(Pens.Yellow, points, 1)
G.DrawCurve(Pens.Red, points, 1.5)
End Sub
|
No responses found. Be the first to respond and make money from revenue sharing program.
|