в 16:40, 26 мая 2010

2010-05-26T16:40:06Z

Admin: 1 версия

2010-05-26T12:42:01Z

1 версия

Новая страница

==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>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net/2D/Graphics Path Iterator - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия