Pen.Clone 方法

定义

命名空间:

System.Drawing

程序集:

System.Drawing.Common.dll

包:

System.Drawing.Common v8.0.0

Source:

Pen.cs

创建此 Pen 的一个精确副本。

public:
 virtual System::Object ^ Clone();

public object Clone ();

abstract member Clone : unit -> obj
override this.Clone : unit -> obj

Public Function Clone () As Object

返回

Object

一个可以强制转换为 Pen 的 Object。

实现

Clone()

示例

下面的代码示例旨在与 Windows 窗体 一起使用，它需要 PaintEventArgse，这是事件处理程序的参数Paint。 此代码执行以下操作：

• 创建一个 Pen。

• 创建该笔的副本。

• 使用笔的副本在屏幕上绘制线条。

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