本文整理汇总了VB.NET中System.Windows.Input.StylusPlugIns.RawStylusInput.StylusDeviceId属性的典型用法代码示例。如果您正苦于以下问题:VB.NET RawStylusInput.StylusDeviceId属性的具体用法?VB.NET RawStylusInput.StylusDeviceId怎么用?VB.NET RawStylusInput.StylusDeviceId使用的例子?那么, 这里精选的属性代码示例或许可以为您提供帮助。您也可以进一步了解该属性所在类System.Windows.Input.StylusPlugIns.RawStylusInput
的用法示例。
在下文中一共展示了RawStylusInput.StylusDeviceId属性的1个代码示例,这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞,您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: OnStylusDown
' Collect the points as the user draws the stroke.
Protected Overrides Sub OnStylusDown(ByVal rawStylusInput As RawStylusInput)
' If points is not null, there is already a stroke taking place
' on the digitizer, so don't create a new StylusPointsCollection.
If points Is Nothing Then
points = New StylusPointCollection(rawStylusInput.GetStylusPoints().Description)
points.Add(rawStylusInput.GetStylusPoints())
currentStylus = rawStylusInput.StylusDeviceId
End If
End Sub
' Collect the points as the user draws the stroke.
Protected Overrides Sub OnStylusMove(ByVal rawStylusInput As RawStylusInput)
' Check whether the stylus that started the stroke is the same, and
' that the element hasn't lost focus since the stroke began.
If Not (points Is Nothing) AndAlso currentStylus = rawStylusInput.StylusDeviceId Then
points.Add(rawStylusInput.GetStylusPoints())
End If
End Sub
' Collect the points as the user draws the stroke.
Protected Overrides Sub OnStylusUp(ByVal rawStylusInput As RawStylusInput)
' Check whether the stylus that started the stroke is the same, and
' that the element hasn't lost focus since the stroke began.
If Not (points Is Nothing) AndAlso currentStylus = rawStylusInput.StylusDeviceId Then
points.Add(rawStylusInput.GetStylusPoints())
' Subscribe to the OnStylusUpProcessed method.
rawStylusInput.NotifyWhenProcessed(points)
End If
points = Nothing
currentStylus = 0
End Sub