VB.Net/2D/Graphics Path Iterator
Use Graphics Path Iterator to get the Path information
<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass
Shared Sub Main() Dim p As GraphicsPath = New GraphicsPath() Dim pts() As PointF = {New PointF(50.0F, 50.0F), _ New PointF(150.0F, 25.0F), _ New PointF(200.0F, 50.0F)} p.AddCurve(pts) p.AddRectangle(New Rectangle(60, 60, 50, 50)) p.AddPie(100, 100, 80, 80, 0, 35) Dim iter As GraphicsPathIterator = New GraphicsPathIterator(p) Console.WriteLine("Num pts in path = " & iter.Count.ToString()) Console.WriteLine("Num subpaths in path = " & iter.SubpathCount.ToString()) Console.WriteLine("Path has curve = " + iter.HasCurve().ToString()) Dim StartIndex As Int32 Dim EndIndex As Int32 Dim i As Int32 Dim IsClosed As Boolean " Rewind the Iterator. iter.Rewind() " List the Subpaths. For i = 0 To iter.SubpathCount - 1 iter.NextSubpath(StartIndex, EndIndex, IsClosed) Console.WriteLine("Start: " + StartIndex.ToString() + _ " End: " + EndIndex.ToString() + _ " IsClosed: " + IsClosed.ToString()) Next End Sub
End Class
</source>