本文整理匯總了VB.NET中System.Drawing.Drawing2D.GraphicsPathIterator.Enumerate方法的典型用法代碼示例。如果您正苦於以下問題：VB.NET GraphicsPathIterator.Enumerate方法的具體用法？VB.NET GraphicsPathIterator.Enumerate怎麽用？VB.NET GraphicsPathIterator.Enumerate使用的例子？那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在類System.Drawing.Drawing2D.GraphicsPathIterator的用法示例。
在下文中一共展示了GraphicsPathIterator.Enumerate方法的1個代碼示例，這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚，您的評價將有助於係統推薦出更棒的VB.NET代碼示例。
示例1: EnumerateExample
Public Sub EnumerateExample(ByVal e As PaintEventArgs)
Dim myPath As New GraphicsPath
Dim myPoints As Point() = {New Point(20, 20), _
New Point(120, 120), New Point(20, 120), New Point(20, 20)}
Dim myRect As New Rectangle(120, 120, 100, 100)
myPath.AddLines(myPoints)
myPath.AddRectangle(myRect)
myPath.AddEllipse(220, 220, 100, 100)
' Get the total number of points for the path, and arrays of the
' points and types.
Dim myPathPointCount As Integer = myPath.PointCount
Dim myPathPoints As PointF() = myPath.PathPoints
Dim myPathTypes As Byte() = myPath.PathTypes
' Set up variables for listing the array of points on the left side
' of the screen.
Dim i As Integer
Dim j As Single = 20
Dim myFont As New Font("Arial", 8)
Dim myBrush As New SolidBrush(Color.Black)
' List the set of points and types and types to the left side of
' the screen.
e.Graphics.DrawString("Original Data", myFont, myBrush, 20, j)
j += 20
For i = 0 To myPathPointCount - 1
e.Graphics.DrawString(myPathPoints(i).X.ToString() & ", " & _
myPathPoints(i).Y.ToString() & ", " & _
myPathTypes(i).ToString(), myFont, myBrush, 20, j)
j += 20
Next i
' Create a GraphicsPathIterator for myPath.
Dim myPathIterator As New GraphicsPathIterator(myPath)
myPathIterator.Rewind()
Dim points(myPathIterator.Count) As PointF
Dim types(myPathIterator.Count) As Byte
Dim numPoints As Integer = myPathIterator.Enumerate(points, types)
' Draw the set of copied points and types to the screen.
j = 20
e.Graphics.DrawString("Copied Data", myFont, myBrush, 200, j)
j += 20
For i = 0 To points.Length - 1
e.Graphics.DrawString("Point: " & i & ", " & "Value: " & _
points(i).ToString() & ", " & "Type: " & _
types(i).ToString(), myFont, myBrush, 200, j)
j += 20
Next i
End Sub