Pen.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.
Skapar en exakt kopia av den här Pen.
public:
virtual System::Object ^ Clone();
public object Clone();
abstract member Clone : unit -> obj
override this.Clone : unit -> obj
Public Function Clone () As Object
Returer
En Object som kan kastas till en Pen.
Implementeringar
Exempel
Följande kodexempel är utformat för användning med Windows Forms och kräver PaintEventArgse, vilket är en parameter för händelsehanteraren Paint. Koden utför följande åtgärder:
Skapar en Pen.
Skapar en kopia av pennan.
Ritar en linje till skärmen med hjälp av pennans kopia.
public:
void Clone_Example( PaintEventArgs^ e )
{
// Create a Pen object.
Pen^ myPen = gcnew Pen( Color::Black,5.0f );
// Clone myPen.
Pen^ clonePen = dynamic_cast<Pen^>(myPen->Clone());
// Draw a line with clonePen.
e->Graphics->DrawLine( clonePen, 0, 0, 100, 100 );
}
public void Clone_Example(PaintEventArgs e)
{
// Create a Pen object.
Pen myPen = new Pen(Color.Black, 5);
// Clone myPen.
Pen clonePen = (Pen)myPen.Clone();
// Draw a line with clonePen.
e.Graphics.DrawLine(clonePen, 0, 0, 100, 100);
}
Public Sub Clone_Example(ByVal e As PaintEventArgs)
' Create a Pen object.
Dim myPen As New Pen(Color.Black, 5)
' Clone myPen.
Dim clonePen As Pen = CType(myPen.Clone(), Pen)
' Draw a line with clonePen.
e.Graphics.DrawLine(clonePen, 0, 0, 100, 100)
End Sub