DrawClosedCurve(curve_pen, pts) Demo : Curve « 2D « VB.Net

DrawClosedCurve(curve_pen, pts) Demo

DrawClosedCurve(curve_pen, pts) Demo
Imports System
Imports System.Windows.Forms
Imports System.Drawing.Text
Imports System.Drawing

Public Class MainClass
    Shared Sub Main(ByVal args As String())
        Dim myform As Form = New Form1()
    End Sub
End Class

Public Class Form1
    Private Sub Form1_Paint(ByVal sender As Object, _
     ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        ' Define the curve's control points.
        Dim pts() As Point = { _
            New Point(200, 30), _
            New Point(200, 150), _
            New Point(10, 50), _
            New Point(250, 200), _
            New Point(20, 200), _
            New Point(250, 50), _
            New Point(100, 250) _

        ' Draw the closed curve.
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.HighQuality

        Dim curve_pen As New Pen(Color.Black, 3)
        e.Graphics.DrawClosedCurve(curve_pen, pts)

        ' Draw rectangles on the control points.
        For i As Integer = 0 To pts.Length - 1
            e.Graphics.FillRectangle(Brushes.White, pts(i).X - 2, pts(i).Y - 2, 5, 5)
            e.Graphics.DrawRectangle(Pens.Black, pts(i).X - 2, pts(i).Y - 2, 5, 5)
        Next i
    End Sub
End Class

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Public Class Form1
    Inherits System.Windows.Forms.Form

    'Form overrides dispose to clean up the component list.
    <System.Diagnostics.DebuggerNonUserCode()> _
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso components IsNot Nothing Then
        End If
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> _
    Private Sub InitializeComponent()
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.ClientSize = New System.Drawing.Size(364, 309)
        Me.Name = "Form1"
        Me.Text = "Title"

    End Sub

End Class


Related examples in the same category

1.Draw Closed Curve DemoDraw Closed Curve Demo
2.Curve DemoCurve Demo