Готовые решения и полезные коды на Visual Basic .NET (Часть-1) - Visual Basic .NET - Ответ 5588062

Imports System.Threading
 
Public Class Form1
    'Поток 1
    Private Thread_1 As New Thread(AddressOf Process_Thread_1)
    'Поток 2
    Private Thread_2 As New Thread(AddressOf Process_Thread_2)
 
    'Загрузка формы
    Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Button1.Text = "Пауза"
        Button2.Text = "Пауза"
        Button3.Text = "Старт потока 1"
        Button4.Text = "Старт потока 2"
        Button5.Text = "Сообщение"
    End Sub
 
    'Запуск потока 1
    Private Sub Button3_Click(sender As Object, e As System.EventArgs) Handles Button3.Click
        Button3.Enabled = False
        Thread_1.Start()
    End Sub
    'Приостановка и возобновление потока 1
    Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Пауза" Then
            Button1.Text = "Продолжить"
            Thread_1.Suspend()
        Else
            Button1.Text = "Пауза"
            Thread_1.Resume()
        End If
    End Sub
    'Запуск потока 2
    Private Sub Button4_Click(sender As Object, e As System.EventArgs) Handles Button4.Click
        Button4.Enabled = False
        Thread_2.Start()
    End Sub
    'Приостановка и возобновление потока 2
    Private Sub Button2_Click(sender As Object, e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Пауза" Then
            Button2.Text = "Продолжить"
            Thread_2.Suspend()
        Else
            Button2.Text = "Пауза"
            Thread_2.Resume()
        End If
    End Sub
    'Сообщение 
    Private Sub Button5_Click(sender As Object, e As System.EventArgs) Handles Button5.Click
        MsgBox("Это основной поток приложения. ") '& vbCrLf &
    End Sub
    'Процедура потока 1
    Private Sub Process_Thread_1()
        Dim i As Integer = 0
        Do
            Me.Invoke((Sub() TextBox1.Text = i))
            Me.Invoke((Sub() TextBox1.Refresh()))
            Thread.Sleep(1)
            i += 1
        Loop
        'Me.Invoke необходимо для доступа к элементам управления,
        'созданным в другом (основном) потоке приложения
    End Sub
    'Процедура потока 2
    Private Sub Process_Thread_2()
        Dim i As Integer = 0
        Do
            Me.Invoke((Sub() TextBox2.Text = i))
            Me.Invoke((Sub() TextBox2.Refresh()))
            Thread.Sleep(1)
            i += 1
        Loop
        'Me.Invoke необходимо для доступа к элементам управления,
        'созданным в другом (основном) потоке приложения
    End Sub
    'Событие закрытия формы
    'поскольку закрытие потоков командой Abort() вызывает исключение,
    'данная команда обрабатывается в конструкции Try...Catch 
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        Try
            Thread_1.Abort() 'Прерывание потока 1
            Thread_2.Abort() 'Прерывание потока 2
        Catch ex As Exception
 
        End Try
    End Sub
 
    
End Class

Public Class Form1
    'Делегат для асинхронного вызова
    Private Delegate Function AsyncCall(ByVal seconds As Integer) As Integer
    'Запуск выполнения
    Private Sub Button1_Click(sender As Object, e As System.EventArgs) Handles Button1.Click
        'Очистка текстового поля
        TextBox1.Clear()
        'Получение текущего времени
        Dim StartTime As DateTime = DateTime.Now
        'Переменные результата
        Dim Data_A, Data_B As Integer
 
        'Запуск первой задачи в новом потоке
        Dim AsyncCall_1 As New AsyncCall(AddressOf Call_A)
        Dim AsyncResult As IAsyncResult
        AsyncResult = AsyncCall_1.BeginInvoke(30, Nothing, Nothing)
 
        'Запуск второй задачи в основном потоке
        Data_B = Call_B(30)
 
        'Ожидание завершения асинхронного потока
        'если поток не завершен, основной поток блокируется до его завершения
        'Для проверки можно запустить обе функции в основном потоке
        'результирующая задержка будет равна сумме задержек каждой из них (60 секунд)
        Data_A = AsyncCall_1.EndInvoke(AsyncResult)
 
        'Вывод результатов работы функций 
        TextBox1.AppendText("Поток 1 приостановлен на " & Data_A.ToString & " секунд." & vbCrLf)
        TextBox1.AppendText("Поток 2 приостановлен на " & Data_B.ToString & " секунд." & vbCrLf)
        TextBox1.AppendText("Общее время выполнения: " &
                          DateTime.Now.Subtract(StartTime).TotalSeconds.ToString() & " секунд.")
    End Sub
    'Вызов_A
    Private Function Call_A(ByVal N As Integer) As Integer
        Return Delay(N)
    End Function
    'Вызов_B
    Private Function Call_B(ByVal N As Integer) As Integer
        Return Delay(N)
    End Function
    'Функция моделирования  задержки кода
    Private Function Delay(ByVal seconds As Integer) As Integer
        Dim Start As DateTime = DateTime.Now
        Do
            'Ожидание......
        Loop While DateTime.Now.Subtract(Start).TotalSeconds < seconds
        Return seconds
    End Function
 
End Class