Книга: Программирование мобильных устройств на платформе .NET Compact Framework

Листинг 9.2. Тестовая программа для выполнения работы в фоновом потоке

Option Strict On
Imports System
'---------------------------------------------------------
'Тестовый код, который используется для выполнения фоновым
'потоком
'---------------------------------------------------------
Public Class Test1
Public m_loopX As Integer
'------------------------------------------------------------------
'Функция, вызываемая фоновым потоком
' [in] threadExecute: Класс, управляющий выполнением нашего потока.
' Мы можем контролировать его для проверки
' того, не следует ли прекратить вычисления
'------------------------------------------------------------------
Public Sub ThreadEntryPoint(ByVal threadExecute As _
 ThreadExecuteTask)
 'Это окно сообщений будет отображаться в контексте того потока,
 'в котором выполняется задача MsgBox("Выполнение ТЕСТОВОГО ПОТОКА")
 '-------
 ' 60 раз
 '-------
 For m_loopX = 1 To 60
  'Если затребована отмена выполнения, мы должны завершить задачу
  If (threadExecute.State = _
   ThreadExecuteTask.ProcessingState.requestAbort) Then
   threadExecute.setProcessingState( _
    ThreadExecuteTask.ProcessingState.aborted)
   Return
  End If
  'Имитировать выполнение работы: пауза 1/3 секунды
  System.Threading.Thread.Sleep(333)
 Next
End Sub
End Class

Оглавление книги