StylusPointCollection.Clone Metodo

Definizione

Spazio dei nomi:

System.Windows.Input

Assembly:

PresentationCore.dll

Copia 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

Restituisce

StylusPointCollection

Un nuovo StylusPointCollection che contiene copie degli oggetti StylusPoint nell'oggetto StylusPointCollection corrente.

Esempio

Nell'esempio seguente viene illustrato come copiare un StylusPointCollectionoggetto . Nell'esempio viene creato un tratto costituito da membri dell'oggetto StylusPointCollection e li aggiunge a un InkCanvasoggetto . In questo esempio si presuppone che sia presente un InkCanvas oggetto denominato 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)