Stroke.GetBezierStylusPoints 方法

定義

命名空間:

System.Windows.Ink

組件:

PresentationCore.dll

傳回當 Stroke 為 true 時，FitToCurve 所使用的手寫筆點。

public:
 System::Windows::Input::StylusPointCollection ^ GetBezierStylusPoints();

public System.Windows.Input.StylusPointCollection GetBezierStylusPoints ();

member this.GetBezierStylusPoints : unit -> System.Windows.Input.StylusPointCollection

Public Function GetBezierStylusPoints () As StylusPointCollection

傳回

StylusPointCollection

， StylusPointCollection 包含 當 為 true 時 FitToCurve ，沿著 的 Stroke 旋轉點的手寫筆點。

範例

下列範例示範如何在每個 StylusPoint Stroke 上繪製圓形。 FitToCurve如果 屬性設定為 true ，則會 GetBezierStylusPoints 使用 來取得手寫筆點。 否則，會 StylusPoints 使用 屬性。

protected override void DrawCore(DrawingContext context, DrawingAttributes overrides)
{
    // Draw the stroke. Calling base.DrawCore accomplishes the same thing.
    Geometry geometry = GetGeometry(overrides);
    context.DrawGeometry(new SolidColorBrush(overrides.Color), null, geometry);

    StylusPointCollection points;

    // Get the stylus points used to draw the stroke.  The points used depends on
    // the value of FitToCurve.
    if (this.DrawingAttributes.FitToCurve)
    {
        points = this.GetBezierStylusPoints();
    }
    else
    {
        points = this.StylusPoints;
    }

    // Draw a circle at each stylus point.
    foreach (StylusPoint p in points)
    {
        context.DrawEllipse(null, new Pen(Brushes.Black, 1), (Point)p, 5, 5);
    }
}

Protected Overrides Sub DrawCore(ByVal context As DrawingContext, _
        ByVal overridedAttributes As DrawingAttributes)

    ' Draw the stroke. Calling base.DrawCore accomplishes the same thing.
    Dim geometry As Geometry = GetGeometry(overridedAttributes)
    context.DrawGeometry(New SolidColorBrush(overridedAttributes.Color), Nothing, geometry)

    Dim points As StylusPointCollection

    ' Get the stylus points used to draw the stroke.  The points used depends on
    ' the value of FitToCurve.
    If Me.DrawingAttributes.FitToCurve Then
        points = Me.GetBezierStylusPoints()
    Else
        points = Me.StylusPoints
    End If

    ' Draw a circle at each stylus point.
    Dim p As StylusPoint
    For Each p In points
        context.DrawEllipse(Nothing, New Pen(Brushes.Black, 1), CType(p, Point), 5, 5)
    Next p

End Sub

備註

方法會 GetBezierStylusPoints 傳回新的 StylusPointCollection ，其中包含 屬性上的 DrawingAttributes 屬性設定為 true 時 FitToCurve 所使用的手寫筆點 Stroke 。 若要取得設定為 時 FitToCurve false 所使用的手寫筆點，請使用 StylusPoints 屬性。