RawStylusInput.SetStylusPoints(StylusPointCollection) Метод

Определение

Пространство имен:

System.Windows.Input.StylusPlugIns

Сборка:

PresentationCore.dll

Задает точки пера, передаваемые потоку приложения.

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)

Параметры

stylusPoints

StylusPointCollection

точки пера, передаваемые потоку приложения.

Примеры

В следующем примере показано, как изменить точки пера в методе OnStylusDown . Сведения о создании объекта , StylusPlugIn ограничивающего рукописный ввод определенной областью, см. в обзоре StylusPlugIn .

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

Комментарии

Такие события, как StylusDown и StylusMove, могут получить StylusPointCollection набор, SetStylusPoints вызвав GetStylusPoints метод .