StylusPointProperty Class
Represents a property stored in a StylusPoint.
Assembly: PresentationCore (in PresentationCore.dll)
A StylusPointProperty represents properties in StylusPoint such as the (x, y) coordinates, pressure, and so on. You can inherit from the StylusPointProperty class to customize the information stored for each property. The Windows Presentation Framework ships with the StylusPointPropertyInfo class that inherits from StylusPointProperty and specifies the minimum and maximum values, resolution, and unit used for each property.
The following example creates the StylusPointDescription object from a StylusPointCollection and gets the information for each StylusPointPropertyInfo in the StylusPointDescription.
Private Sub WriteDescriptionInfo(ByVal points As StylusPointCollection) Dim pointsDescription As StylusPointDescription = points.Description Dim properties As ReadOnlyCollection(Of StylusPointPropertyInfo) = _ pointsDescription.GetStylusPointProperties() Dim descriptionStringWriter As New StringWriter descriptionStringWriter.Write("Property Count:{0}", pointsDescription.PropertyCount.ToString()) Dim pointProperty As StylusPointPropertyInfo For Each pointProperty In properties ' GetStylusPointPropertyName is defined below and returns the ' name of the property. descriptionStringWriter.Write("name = {0}", GetStylusPointPropertyName(pointProperty).ToString()) descriptionStringWriter.WriteLine(" Guid = {0}", pointProperty.Id.ToString()) descriptionStringWriter.Write(" IsButton = {0}", pointProperty.IsButton.ToString()) descriptionStringWriter.Write(" Min = {0}", pointProperty.Minimum.ToString()) descriptionStringWriter.Write(" Max = {0}", pointProperty.Maximum.ToString()) descriptionStringWriter.Write(" Unit = {0}", pointProperty.Unit.ToString()) descriptionStringWriter.WriteLine(" Res {0}", pointProperty.Resolution.ToString()) Next pointProperty descriptionOutput.Text = descriptionStringWriter.ToString() End Sub 'WriteDescriptionInfo ... ' Use reflection to get the name of currentProperty. Private Function GetStylusPointPropertyName(ByVal currentProperty As StylusPointProperty) As String Dim guid As Guid = currentProperty.Id ' Iterate through the StylusPointProperties to find the StylusPointProperty ' that matches currentProperty, then return the name. Dim theFieldInfo As FieldInfo For Each theFieldInfo In GetType(StylusPointProperties).GetFields() Dim pointProperty As StylusPointProperty = _ CType(theFieldInfo.GetValue(currentProperty), StylusPointProperty) If pointProperty.Id = guid Then Return theFieldInfo.Name End If Next theFieldInfo Return "Not found" End Function 'GetStylusPointPropertyName
Windows 7, Windows Vista, Windows XP SP2, Windows Server 2008 R2, Windows Server 2008, Windows Server 2003
The .NET Framework and .NET Compact Framework do not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.