InkPicture.NewPackets Event
Occurs when the InkPicture control receives packets.
Assembly: Microsoft.Ink (in Microsoft.Ink.dll)
The InkPicture control receives packet while a stroke is being collected. Packet events occur rapidly, and a NewPackets event handler must be fast or performance suffers.
The event handler receives an argument of type InkCollectorNewPacketsEventArgs that contains data about this event.
When you create an InkCollectorNewPacketsEventHandler delegate, you identify the method that handles the event. To associate the event with your event handler, add an instance of the delegate to the event. The event handler is called whenever the event occurs, unless you remove the delegate. For performance reasons, the default event interest is off but is turned on automatically if you add an event handler.
This event may have an adverse effect on ink performance if too much code is executed in the event handlers.
This example demonstrates how you can subscribe to the CursorInRange event, and the NewPackets event obtain ink pressure data, and use that information to manipulate an DrawingAttributes object.
When the CursorInRange event fires, a check is made to see if this is the first time that the InkCollector object has come in contact with this particular Cursor object. If so, the DrawingAttributes property is assigned with a clone of the DefaultDrawingAttributes property. This ensures that subsequent access to the DrawingAttributes property does not throw a null reference exception.
Private Sub mInkObject_CursorInRange(ByVal sender As Object, ByVal e As InkCollectorCursorInRangeEventArgs) Const MOUSE_CURSOR_ID As Integer = 1 If e.NewCursor Then ' mInkObject can be InkCollector, InkOverlay, or InkPicture e.Cursor.DrawingAttributes = mInkObject.DefaultDrawingAttributes.Clone() ' if this cursor is the mouse, we'll set color to red If (MOUSE_CURSOR_ID = e.Cursor.Id) Then e.Cursor.DrawingAttributes.Color = Color.Red End If End If End Sub
When the NewPackets event fires, a check is made to see if NormalPressure is included in the packet data. If so, pressure information is displayed on a status label, and the DrawingAttributes property is modified.
Private Sub mInkObject_NewPackets(ByVal sender As Object, ByVal e As InkCollectorNewPacketsEventArgs) ' find the NormalPressure PacketProperty ' Set NormalPressure to -1 if not there, as some digitizers won't support it Dim PacketDesc As Guid() = e.Stroke.PacketDescription Dim NormalPressure As Integer = -1 For k As Integer = 0 To PacketDesc.Length - 1 If PacketDesc(k) = PacketProperty.NormalPressure Then ' for simplicity, in case of multiple packets, use the first packet only NormalPressure = e.PacketData(k) End If Next k ' If we have the NormalPressure information ' change DrawingAttributes according to the NormalPressure ' Note that the change does not take effect until the next stroke If NormalPressure <> -1 Then ' display the pressure on a status label Me.statusLabelPressure.Text = NormalPressure.ToString() e.Cursor.DrawingAttributes.Width = NormalPressure * 4 ' if pressure is above 127, change color to Red If NormalPressure > 127 Then e.Cursor.DrawingAttributes.Color = Color.Red Else e.Cursor.DrawingAttributes.Color = mInkObject.DefaultDrawingAttributes.Color End If End If End Sub
Windows 7, Windows Vista, Windows Server 2008 R2, Windows Server 2008
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.