共用方式為


Stroke.StylusPoints 屬性

定義

傳回 Stroke 的手寫筆點。

public:
 property System::Windows::Input::StylusPointCollection ^ StylusPoints { System::Windows::Input::StylusPointCollection ^ get(); void set(System::Windows::Input::StylusPointCollection ^ value); };
public System.Windows.Input.StylusPointCollection StylusPoints { get; set; }
member this.StylusPoints : System.Windows.Input.StylusPointCollection with get, set
Public Property StylusPoints As StylusPointCollection

屬性值

StylusPointCollection,包含表示目前 Stroke 的手寫筆點。

範例

下列範例是覆寫 Stroke 的一部分,會在每個 StylusPoint 上繪製圓形。 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

備註

若要取得屬性上的 DrawingAttributes 屬性設定 true 為 時 FitToCurve 所使用的手寫筆點,請使用 GetBezierStylusPoints 方法。

注意

StylusPointCollection指派給 屬性的 StylusPoints 必須至少有一個 StylusPoint 。 如果您嘗試將空白 StylusPointCollection 指派給 StylusPoints ,或從 StylusPoints 中移除所有 StylusPoint 物件,就會發生例外狀況。

適用於