RawStylusInput.GetStylusPoints Methode

Definition

Namespace:

System.Windows.Input.StylusPlugIns

Assembly:

PresentationCore.dll

Ruft die Tablettstiftpunkte ab, die vom Tablettstift erfasst werden.

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

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

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

Public Function GetStylusPoints () As StylusPointCollection

Gibt zurück

StylusPointCollection

Die Tablettstiftpunkte, die vom Tablettstift erfasst werden.

Beispiele

Im folgenden Beispiel wird veranschaulicht, wie Sie die Eingabestiftpunkte in der OnStylusDown Methode ändern. Informationen zum Erstellen einer StylusPlugIn Freihandeingabe auf einen bestimmten Bereich finden Sie in der StylusPlugIn Übersicht.

protected override void OnStylusDown(RawStylusInput rawStylusInput)
{
    // Run the base class before modifying the data
    base.OnStylusDown(rawStylusInput);

    // Get the StylusPoints that have come in
    StylusPointCollection stylusPoints = rawStylusInput.GetStylusPoints();

    // Modify the (X,Y) data to move the points 
    // inside the acceptable input area, if necessary
    for (int i = 0; i < stylusPoints.Count; i++)
    {
        StylusPoint sp = stylusPoints[i];
        if (sp.X < 50) sp.X = 50;
        if (sp.X > 250) sp.X = 250;
        if (sp.Y < 50) sp.Y = 50;
        if (sp.Y > 250) sp.Y = 250;
        stylusPoints[i] = sp;
    }

    // Copy the modified StylusPoints back to the RawStylusInput
    rawStylusInput.SetStylusPoints(stylusPoints);
}

Protected Overrides Sub OnStylusDown(ByVal rawStylusInput As RawStylusInput) 
    ' Run the base class before we modify the data
    MyBase.OnStylusDown(rawStylusInput)
    
    ' Get the StylusPoints that have come in
    Dim stylusPoints As StylusPointCollection = rawStylusInput.GetStylusPoints()
    
    ' Modify the (X,Y) data to move the points 
    ' inside the acceptable input area, if necessary.
    Dim i As Integer

    For i = 0 To stylusPoints.Count - 1

        Dim sp As StylusPoint = stylusPoints(i)

        If sp.X < 50 Then
            sp.X = 50
        End If

        If sp.X > 250 Then
            sp.X = 250
        End If

        If sp.Y < 50 Then
            sp.Y = 50
        End If

        If sp.Y > 250 Then
            sp.Y = 250
        End If

        stylusPoints(i) = sp
    Next i
    
    ' Copy the modified StylusPoints back to the RawStylusInput
    rawStylusInput.SetStylusPoints(stylusPoints)

End Sub