Просмотр исходного текста страницы 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>