Thread.Suspend как так то

@ХочуЗнатьБольше · Регистрация: 14.08.2017

Студворк — интернет-сервис помощи студентам

С некоторого времени назад, как оказалось, в MS сделали паузу для потока устаревшей. Пишут про нее гадости

Кликните здесь для просмотра всего текста

Предупреждение BC40000 "Public Overloads Sub Suspend()" является устаревшим: "Thread.Suspend has been deprecated. Please use other classes in System.Threading, such as Monitor, Mutex, Event, and Semaphore, to synchronize Threads or protect resources. http://go.microsoft.com/fwlink/?linkid=14202".

и отправляют в синхронизацию потоков через Monitor и тд.

Причиной устаревания, как понял, является невозможность понять, на каком этапе находится поток. Но, как бы, не всегда оно и нужно.

Примером с MSDN про Monitor предлагается Monitor.Enter + Monitor.Wait. Проверил, поток не останавливается. Остальными вариантами тоже. В итоге написал короткий пример, где поток должен приостанавливаться при resize формы.

Кликните здесь для просмотра всего текста

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Imports System.Threading
Public Class Form1
 
  Private pbTest As PictureBox = New PictureBox
  Private thrMain As Thread = New Thread(AddressOf ThreadJob)
 
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.Controls.Add(pbTest)
    pbTest.Dock = DockStyle.Fill
    thrMain.IsBackground = True
    thrMain.Start()
  End Sub
 
  Private Sub ThreadJob()
    Dim S As Size, TempImage As Bitmap, G As Graphics
    While True
      If S <> pbTest.Size Then
        S = pbTest.Size
        TempImage = New Bitmap(S.Width, S.Height)
        pbTest.Image = TempImage
        G = Graphics.FromImage(TempImage)
      End If
      G.Clear(Color.White)
      G.DrawString(Now.TimeOfDay.ToString, Me.Font, New SolidBrush(Color.Green), 50, 50)
      pbTest.Invalidate()
      Thread.Sleep(500)
    End While
  End Sub
 
  Private Sub Form1_ResizeBegin(sender As Object, e As EventArgs) Handles Me.ResizeBegin
    thrMain.Suspend()
  End Sub
 
  Private Sub Form1_ResizeEnd(sender As Object, e As EventArgs) Handles Me.ResizeEnd
    thrMain.Resume()
  End Sub
End Class

Как то лаконично, без огородов, возможно теперь просто остановить поток?

@Дядя Корней · 31.08.2017, 10:42

Привет!
Я делаю примерно так.
Создаю булев флаг.
Вешаю его на кнопки Пауза/Продолжить.
Далее просто в зависимости от состояния флага скидываю поток в бесконечный цикл.

Пример.
Только он очень упрощенный. Тут делегаты еще нужны и прочее, если помимо всего идет работа с контролами. Сделаешь это сам, если идея понравится.

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Private Sub ButtonStart_Click(sender As Object, e As EventArgs) Handles ButtonStart.Click
        Dim thrd As New Thread(AddressOf Worker)
        thrd.Start()
    End Sub
 
 
    Dim FlagPause As Boolean = False
    Private Sub ButtonPause_Click(sender As Object, e As EventArgs) Handles ButtonPause.Click
        FlagPause = True
    End Sub
    Private Sub ButtonResume_Click(sender As Object, e As EventArgs) Handles ButtonResume.Click
        FlagPause = False
    End Sub
 
    Friend Sub Worker()
        For Each o As Object In IO.File.ReadLines("path")
            While FlagPause = True
                Thread.Sleep(1000)
            End While
            'тут что-то делаем
        Next
    End Sub

@Yury Komar · 31.08.2017, 11:28

Дядя Корней, думаю Thread.Sleep(1000) тут вообще ненужен, так как цикл While и так подвесит поток пока FlagPause = True

VB.NET
1
2
3
4
5
6
    Friend Sub Worker()
        For Each o As Object In IO.File.ReadLines("path")
            While FlagPause = True : End While ' Здесь тормозим чтение строк файла пока нажали на паузу
            'тут что-то делаем
        Next
    End Sub

@Дядя Корней · 31.08.2017, 14:18

Yury Komar, можно и убрать сон. Тут дело каждого.
Но я тестировал. Когда указываешь сон, программа меньше нагружает пк, т.к. будет спать. Если сна нет, то она будет безостановочно работать в цикле и нагружать пк.

@ХочуЗнатьБольше · 31.08.2017, 16:00 **[ТС]**

Гонять поток на "холостых" это совсем другая история. Также как и

'тут что-то делаем

, вот оно и должно остановиться, не доделывать цикл, именно остановиться.

@Sklifosofsky · 31.08.2017, 22:47

Не знаю, то, не то..

Кликните здесь для просмотра всего текста

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Imports System.Threading
Public Class Form1
 
    Private pbTest As PictureBox = New PictureBox
    Private thrMain As Thread = New Thread(AddressOf ThreadJob)
 
    Private ewh As New Threading.EventWaitHandle(True, EventResetMode.ManualReset)
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Controls.Add(pbTest)
        pbTest.Dock = DockStyle.Fill
        thrMain.IsBackground = True
        thrMain.Start()
    End Sub
 
    Private Sub ThreadJob()
        Dim S As Size, TempImage As Bitmap, G As Graphics
        Dim r As Boolean
        While True
            ewh.WaitOne()
            If S <> pbTest.Size Then
                S = pbTest.Size
                TempImage = New Bitmap(S.Width, S.Height)
                pbTest.Image = TempImage
                G = Graphics.FromImage(TempImage)
            End If
 
            Debug.Print(r)
            G.Clear(Color.White)
            G.DrawString(Now.TimeOfDay.ToString, Me.Font, New SolidBrush(Color.Green), 50, 50)
            pbTest.Invalidate()
            Thread.Sleep(500)
        End While
    End Sub
 
    Private Sub Form1_ResizeBegin(sender As Object, e As EventArgs) Handles Me.ResizeBegin
        'thrMain.Suspend()
        ewh.Reset()
    End Sub
 
    Private Sub Form1_ResizeEnd(sender As Object, e As EventArgs) Handles Me.ResizeEnd
        'thrMain.Resume()
        ewh.Set()
    End Sub
End Class

Уже из этого мне не нравится, что рисование и обращение к элементам формы производится из под дочернего потока, нету гарантии на безошибочную работу. Лучше использовать инвок в родительский поток.

@Замабувараев · 01.09.2017, 02:08

Синхронизировать потоки замораживанием является антипаттерном программирования. Замораживать потоки должна операционная система самостоятельно.

Для получения монопольного доступа к какой‐либо переменной подходит самый простой способ — вход в критическую секцию. В это время никакие другие потоки не могут войти в эту же критическую секцию и будут заморожены операционной системой до тех пор, пока другой поток из неё не выйдет.

В VB.Net критические секции реализуются через оператор SynkLock:

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class TestThreading
    Dim lockThis As New Object
 
    Public Sub Process1()
        SyncLock lockThis
            ' Здесь идёт обращение к переменным, требующим монопольного доступа
        End SyncLock
    End Sub
 
 
    Public Sub Process2()
        SyncLock lockThis
            ' Этот код выполнится только тогда, когда критическая секция из Process1 будет освобождена
        End SyncLock
    End Sub
End Class

Кое‐что по синхронизациям потоков можно почитать тут https://msdn.microsoft.com/ru-... -snippet-1

@Дядя Корней · 01.09.2017, 11:40

Замабувараев, ТС'у вроде не синхронизация нужна, а пауза, если я правильно понял.

@Замабувараев · 01.09.2017, 19:37

Дядя Корней, а пауза нужна, чтобы поток не обращался к общим переменным. То есть для синхронизации.

@ХочуЗнатьБольше · 02.09.2017, 18:41 **[ТС]**

Именно так

Сообщение от Дядя Корней

Замабувараев, ТС'у вроде не синхронизация нужна, а пауза, если я правильно понял.

Синхронизация не тема вопроса

Сообщение от Замабувараев

Дядя Корней, а пауза нужна, чтобы поток не обращался к общим переменным. То есть для синхронизации.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@Дядя Корней 399 / 318 / 53 Регистрация: 14.08.2014 Сообщений: 1,010
	31.08.2017, 14:18
	Yury Komar, можно и убрать сон. Тут дело каждого. Но я тестировал. Когда указываешь сон, программа меньше нагружает пк, т.к. будет спать. Если сна нет, то она будет безостановочно работать в цикле и нагружать пк. 0

@Дядя Корней 399 / 318 / 53 Регистрация: 14.08.2014 Сообщений: 1,010
	01.09.2017, 11:40
	Замабувараев, ТС'у вроде не синхронизация нужна, а пауза, если я правильно понял. 0

@Замабувараев COM‐пропагандист 936 / 785 / 149 Регистрация: 18.12.2014 Сообщений: 2,256 Записей в блоге: 4
	01.09.2017, 19:37
	Дядя Корней, а пауза нужна, чтобы поток не обращался к общим переменным. То есть для синхронизации. 0

Thread.Suspend как так то

Решение