共用方式為

SelectionChanged Event

  • 發行項

SelectionChanged Event

Occurs when the selection of ink within the control has changed, such as through alterations to the user interface, cut-and-paste procedures, or the Selection property.

Declaration

[C++]

void SelectionChanged();

[Microsoft® Visual Basic® 6.0]

Public Event SelectionChanged()

Remarks

There are no event data.

This event method is defined in the _IInkOverlayEvents and _IInkPictureEvents dispinterfaces with an ID of DISPID_IOESelectionChanged.

Example

[Visual Basic 6.0]

This Visual Basic 6.0 example demonstrates adding a SelectionChanged and a SelectionChanging event handler to an InkOverlay object. These events are initiated with a command button, Command1, which randomly selects one third of the strokes collected in the InkOverlay object. The SelectionChanging event handler is invoked before the event begins, and causes the Color and Width drawing attributes to be randomized before the selection is painted. The SelectionChanged event handler writes information about the number of times the event has occurred in a text box, Text1.

Option Explicit
Dim WithEvents theInkOverlay As InkOverlay
Dim countChanges As Integer

Private Sub Command1_Click()
    Dim theStrokes As InkStrokes
    Dim i As Long
    Set theStrokes = theInkOverlay.Ink.CreateStrokes
    For i = Int(3 * Rnd) To theInkOverlay.Ink.Strokes.Count - 1 Step 3
        theStrokes.Add theInkOverlay.Ink.Strokes.Item(i)
    Next
    theInkOverlay.Selection = theStrokes
End Sub

Private Sub Form_Load()
    Randomize
    Set theInkOverlay = New InkOverlay
    theInkOverlay.hWnd = Me.hWnd
    theInkOverlay.Enabled = True
    countChanges = 0
End Sub

Private Sub theInkOverlay_SelectionChanged()
    Text1.Text = "InkOverlay selection changed " _
        & countChanges & " times."
    countChanges = countChanges + 1
End Sub

Private Sub theInkOverlay_SelectionChanging( _
ByVal NewSelection As MSINKAUTLib.IInkStrokes)
    Dim theDrawingAttributes As New InkDrawingAttributes
    theDrawingAttributes.Color = RGB(Int(255 * Rnd), Int(255 * Rnd), Int(255 * Rnd))
    theDrawingAttributes.Width = Int(240 * Rnd) + 30
    NewSelection.ModifyDrawingAttributes theDrawingAttributes
End Sub

Applies To