Pen.Dispose 方法

public:
 virtual void Dispose();

public void Dispose();

abstract member Dispose : unit -> unit
override this.Dispose : unit -> unit

Public Sub Dispose ()

實作

範例

以下程式碼範例展示了設定 Width and LineJoin 屬性的效果，並說明如何呼叫 DisposePen方法 。

此範例設計用於 Windows 表單。 將程式碼貼到表單中，處理表單ShowLineJoin事件時呼叫該Paint方法，傳遞e為 PaintEventArgs。

private:
   void ShowLineJoin( PaintEventArgs^ e )
   {
      // Create a new pen.
      Pen^ skyBluePen = gcnew Pen( Brushes::DeepSkyBlue );

      // Set the pen's width.
      skyBluePen->Width = 8.0F;

      // Set the LineJoin property.
      skyBluePen->LineJoin = System::Drawing::Drawing2D::LineJoin::Bevel;

      // Draw a rectangle.
      e->Graphics->DrawRectangle( skyBluePen, Rectangle(40,40,150,200) );

      //Dispose of the pen.
      delete skyBluePen;
   }

private void ShowLineJoin(PaintEventArgs e)
{

    // Create a new pen.
    Pen skyBluePen = new Pen(Brushes.DeepSkyBlue);

    // Set the pen's width.
    skyBluePen.Width = 8.0F;

    // Set the LineJoin property.
    skyBluePen.LineJoin = System.Drawing.Drawing2D.LineJoin.Bevel;

    // Draw a rectangle.
    e.Graphics.DrawRectangle(skyBluePen, 
        new Rectangle(40, 40, 150, 200));

    //Dispose of the pen.
    skyBluePen.Dispose();
}

Private Sub ShowLineJoin(ByVal e As PaintEventArgs)

    ' Create a new pen.
    Dim skyBluePen As New Pen(Brushes.DeepSkyBlue)

    ' Set the pen's width.
    skyBluePen.Width = 8.0F

    ' Set the LineJoin property.
    skyBluePen.LineJoin = Drawing2D.LineJoin.Bevel

    ' Draw a rectangle.
    e.Graphics.DrawRectangle(skyBluePen, _
        New Rectangle(40, 40, 150, 200))

    'Dispose of the pen.
    skyBluePen.Dispose()

End Sub

備註

呼叫 Dispose 允許將 Brush 所使用的資源重新分配到其他用途。

使用完Dispose後再打電話Pen。 此 Dispose 方法會使 在 Pen 無法使用的狀態下。 呼叫 Dispose後，您必須解除所有對 的 Pen 引用，讓垃圾回收器能回收原本 Pen 佔用的記憶體。 欲了解更多資訊，請參閱《 清理未管理資源 及 實施處置方法》。