StylusPointPropertyInfo Class
Assembly: PresentationCore (in presentationcore.dll)
XML Namespace: http://schemas.microsoft.com/winfx/2006/xaml/presentation
The StylusPointPropertyInfo class inherits from the StylusPointProperty class and generates the Minimum, Maximum, Resolution, and Unit values used for a property in a StylusPoint. The valid information for each property varies depending on the manufacture of the digitizer and stylus.
The following example creates an 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 98, Windows Server 2000 SP4, Windows CE, Windows Millennium Edition, Windows Mobile for Pocket PC, Windows Mobile for Smartphone, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition
The Microsoft .NET Framework 3.0 is supported on Windows Vista, Microsoft Windows XP SP2, and Windows Server 2003 SP1.