本文整理汇总了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