共用方式為


Pen.Clone 方法

定義

建立這個 Pen的確切複本。

public:
 virtual System::Object ^ Clone();
public object Clone ();
abstract member Clone : unit -> obj
override this.Clone : unit -> obj
Public Function Clone () As Object

傳回

可轉換成 PenObject

實作

範例

下列程式代碼範例是專為搭配 Windows Forms 使用而設計,而且需要 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

適用於