Freigeben über


RawStylusInput.SetStylusPoints(StylusPointCollection) Methode

Definition

Legt die Tablettstiftpunkte fest, die an den Anwendungsthread übergeben werden.

public:
 void SetStylusPoints(System::Windows::Input::StylusPointCollection ^ stylusPoints);
public void SetStylusPoints (System.Windows.Input.StylusPointCollection stylusPoints);
member this.SetStylusPoints : System.Windows.Input.StylusPointCollection -> unit
Public Sub SetStylusPoints (stylusPoints As StylusPointCollection)

Parameter

stylusPoints
StylusPointCollection

Die Tablettstiftpunkte, die an den Anwendungsthread übergeben werden sollen.

Beispiele

Im folgenden Beispiel wird veranschaulicht, wie Sie die Stiftpunkte in der OnStylusDown -Methode ändern. Informationen zum Erstellen eines StylusPlugIn , das Freihand auf einen bestimmten Bereich beschränkt, 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

Hinweise

Ereignisse wie StylusDown und StylusMovekönnen das StylusPointCollection Set durch SetStylusPoints Aufrufen der GetStylusPoints -Methode abrufen.

Gilt für: