The topic you requested is included in another documentation set. For convenience, it's displayed below. Choose Switch to see the topic in its original location.
StylusPointPropertyUnit Enumeration
Visual Studio 2010
Specifies the unit of measurement for a StylusPoint property.
Assembly: PresentationCore (in PresentationCore.dll)
| Member name | Description | |
|---|---|---|
| None | Indicates that a StylusPoint property's measurement is not specified. | |
| Inches | Indicates that a StylusPoint property is measured in inches. | |
| Centimeters | Indicates that a StylusPoint property is measured in centimeters. | |
| Degrees | Indicates that a StylusPoint property is measured in degrees. | |
| Radians | Indicates that a StylusPoint property is measured in radians. | |
| Seconds | Indicates that a StylusPoint property is measured in seconds. | |
| Pounds | Indicates that a StylusPoint property is measured in pounds. | |
| Grams | Indicates that a StylusPoint property is measured in grams. |
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 7, Windows Vista SP1 or later, Windows XP SP3, Windows Server 2008 (Server Core not supported), Windows Server 2008 R2 (Server Core supported with SP1 or later), Windows Server 2003 SP2
The .NET Framework does not support all versions of every platform. For a list of the supported versions, see .NET Framework System Requirements.
Community Additions
Show: