StylusPointCollection.Clone Metod
Definition
Viktigt
En del information gäller för förhandsversionen av en produkt och kan komma att ändras avsevärt innan produkten blir allmänt tillgänglig. Microsoft lämnar inga garantier, uttryckliga eller underförstådda, avseende informationen som visas här.
Kopierar 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
Returer
En ny StylusPointCollection som innehåller kopior av objekten StylusPoint i den aktuella StylusPointCollection.
Exempel
I följande exempel visas hur du kopierar en StylusPointCollection. Exemplet skapar en linje som består av medlemmar i StylusPointCollection och lägger till dem i en InkCanvas. Det här exemplet förutsätter att det finns en InkCanvas som heter 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)