StylusPointCollection.Clone Metoda

Definice

Obor názvů:

System.Windows.Input

Sestavení:

PresentationCore.dll

Zkopíruje .StylusPointCollection

public:
 System::Windows::Input::StylusPointCollection ^ Clone();

public System.Windows.Input.StylusPointCollection Clone ();

member this.Clone : unit -> System.Windows.Input.StylusPointCollection

Public Function Clone () As StylusPointCollection

Návraty

StylusPointCollection

Nový StylusPointCollection , který obsahuje kopie StylusPoint objektů v aktuálním StylusPointCollectionobjektu .

Příklady

Následující příklad ukazuje, jak zkopírovat StylusPointCollection. Příklad vytvoří tah složený ze členů objektu StylusPointCollection a přidá je do objektu InkCanvas. V tomto příkladu se předpokládá, že existuje objekt InkCanvas s názvem inkcanvs1.

Point[] rawPoints = new Point[]
    {
        new Point(100, 100),
        new Point(100, 200),
        new Point(200, 250),
        new Point(300, 300)
    };

StylusPointCollection points1 = new StylusPointCollection(rawPoints);

// Create a copy of points1 and change the second StylusPoint.
StylusPointCollection points2 = points1.Clone();
points2[1] = new StylusPoint(200, 100);

// Create a stroke from each StylusPointCollection and add them to
// inkCanvas1. Note that changing a StylusPoint in point2 did not
// affect points1.
Stroke stroke1 = new Stroke(points1);
inkCanvas1.Strokes.Add(stroke1);

Stroke stroke2 = new Stroke(points2);
stroke2.DrawingAttributes.Color = Colors.Red;
inkCanvas1.Strokes.Add(stroke2);

Dim rawPoints() As Point = {New Point(100, 100), _
                            New Point(100, 200), _
                            New Point(200, 250), _
                            New Point(300, 300)}

Dim points1 As New StylusPointCollection(rawPoints)

' Create a copy of points1 and change the second StylusPoint.
Dim points2 As StylusPointCollection = points1.Clone()
points2(1) = New StylusPoint(200, 100)

' Create a stroke from each StylusPointCollection and add them to
' inkCanvas1. Note that changing a StylusPoint in point2 did not
' affect points1.
Dim stroke1 As New Stroke(points1)
inkCanvas1.Strokes.Add(stroke1)

Dim stroke2 As New Stroke(points2)
stroke2.DrawingAttributes.Color = Colors.Red
inkCanvas1.Strokes.Add(stroke2)