StylusPointCollection.Clone Methode

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

Gibt zurück

Eine neue StylusPointCollection , die Kopien der StylusPoint Objekte im aktuellen StylusPointCollectionenthält.

Beispiele

Im folgenden Beispiel wird veranschaulicht, wie ein StylusPointCollection. Im Beispiel wird ein Strich erstellt, der aus Elementen besteht StylusPointCollection , und fügt sie zu einem InkCanvas. In diesem Beispiel wird davon ausgegangen, dass ein aufgerufener InkCanvas Vorgang vorhanden inkcanvs1ist.

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)