Question

I’ve searched but I can’t find the solution I’m looking for.

I specifically want to use Threading.Tasks.Task for this project, just to understand it better.

I have a lengthy XML file that I want to search based on text that a user types in. Because it’s lengthy, I want to wait for the user to stop typing for 250ms or so before I actually start searching in the background. I tried to kick off my Task, having it sleep for 250ms, then check if my CancelTokenSource had canceled because another character was typed. I’m not seeing a cancellation, though, so I end up seeing my results flash several times as the queued up search tasks complete, one after the other, after I finish typing.

My code has turned into a terrible mess and I need to start over, but was hoping someone could point me in the right direction.

Answer 1

Start with a thread-safe property that determines when the search should begin. Initialise it to Date.MaxValue to prevent it running before it’s asked to.

Private Property SearchTriggerTime As Date
    Get
        SyncLock SearchTriggerTimeLock
            Return _SearchTriggerTime
        End SyncLock
    End Get
    Set(value As Date)
        SyncLock SearchTriggerTimeLock
            _SearchTriggerTime = value
        End SyncLock
    End Set
End Property
Private _SearchTriggerTime As Date = Date.MaxValue
Private ReadOnly SearchTriggerTimeLock As New Object

When the search text box text changes, set the timer to when you want to start searching. As the user types quickly, the search timer will be reset before it triggers. In the code below, if the user clears the text box, the timer is set to never trigger, ie. do not search.

Private Const SearchDelay As Integer = 250

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    If TextBox1.Text <> "" Then
        SearchTriggerTime = Date.Now.AddMilliseconds(SearchDelay)
    Else
        SearchTriggerTime = Date.MaxValue
    End If
End Sub

Start a thread to perform the searching when the form loads.

Public Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
    With New Thread(AddressOf SearchThread)
        .Start()
    End With
End Sub

This thread passes through three states. The first state is waiting for the trigger time to start the search. It checks the trigger time every 50ms. The second state is performing the search. During the search, it checks if the form closes or if the user types more, and abandons the search in those cases. In the third state, if the search completes normally, the form’s original thread is asked to display the results. If you need to change a control, always do so on the form’s thread by using Form.Invoke(Delegate).

Private Sub SearchThread()
    Do Until IsDisposed
        ' Wait for the user to stop typing.
        Do Until IsDisposed OrElse SearchTriggerTime <= Date.Now
            Thread.Sleep(50)
        Loop
        ' Search until the form is disposed, the user types more, or the search is complete.
        ' TODO: Initialise the search variables.
        Dim SearchComplete As Boolean = False
        Do Until IsDisposed OrElse SearchTriggerTime > Date.Now OrElse SearchComplete
            ' TODO: Insert search code here.
            If condition Then SearchComplete = True
        Loop
        ' Reset the search timer.
        SearchTriggerTime = Date.MaxValue
        ' Only display results if the search was completed.
        If SearchComplete Then Invoke(New Action(AddressOf DisplaySearchResults))
    Loop
End Sub

Lastly, create a method to display your search results. This will be run in the form’s thread to prevent invalid cross-thread operations.

Private Sub DisplaySearchResults()
    ' TODO: Display search results.
End Sub