Imports Leadtools.Dicom.AddIn
Private Sub ThreadFunction()
For i As Integer = 0 To 999
Console.WriteLine("Count: {0}", i)
Next i
End Sub
Public Sub TestExecute()
Dim r As AsyncResult = AsyncHelper.Execute(New Action(AddressOf ThreadFunction))
'
' Wait 1 second for the thread to finish.
'
r.Wait(1000)
If r.IsCompleted Then
Console.WriteLine("Completed")
End If
End Sub
using Leadtools.Dicom.AddIn;
private void ThreadFunction()
{
for (int i = 0; i < 1000; i++)
{
Console.WriteLine("Count: {0}", i);
}
}
public void TestExecute()
{
AsyncResult r = AsyncHelper.Execute(new Action(ThreadFunction));
//
// Wait 1 second for the thread to finish.
//
r.Wait(1000);
if (r.IsCompleted)
Console.WriteLine("Completed");
}