остановить цикл

[Novichok$]

Подскажите, как это «культурно» остановить.

Задумано так, что вместо MessageBox.Show("Pause")
Будет выполняться код.

Задача была – получить бесконечный цикл. Так, цикл получил, а как теперь остановить его – не знаю.
На форме только Button и CheckBox.
Нажимаю на Button – процесс пошел.
Хотел убрать галочку в CheckBox, что бы снять условие для работы бесконечного цикла, но CheckBox «не хочет» (недоступен).
Похоже, я пытаюсь влезть в работающий процесс, а VB этого не позволяет.

Может кто знает, как быть

Код: Выделить всё

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    StarteSleep()
End Sub

Private Sub StarteSleep()
        While Me.CheckBox1.Checked
            MessageBox.Show("Pause")
            Sleep(60000)
        End While
End Sub


[Novichok$]

Даааа, наподсказывали, аж не унесу : )))

Может все таки кто то знает

Вставил, как мне подсказали, Application.DoEvents(), и с MessageBox, все действительно работает. НО,
Как только я вместо MessageBox подключаю свой код с таймером и меняю временной интервал с 5 на 10, или того хуже 20 секунд ... труба, или вообще не реагирует ( не ставится галочка в CheckBox1) либо ставится после 10той попытки, и после двойного щелчка почему то.
Конпка Close работает не с 10той а с 5той попытки, в общем, такая же история.

Можно ли здесь что нибудь придумать, может Thtead или добавить еще одну форму и попробовать передать ей управление.
Мне необходимо, что бы в момент щелчка на Close или CheckBox1 каким то образом останавливалась работа Sleep (или не останавливалась, а просто приоритет выполнения процесса менялся ) и выполнялись действия с Close или CheckBox1.

Код: Выделить всё

Private Sub StarteSleep()

          While CheckBox1.Checked = False
            'TimerAction()
            'MessageBox.Show("Igraet!")
            Sleep(5000)
            Application.DoEvents()

        End While
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
        StarteSleep()

End Sub

Private Sub Close _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close.Click
  Me.Close()
End Sub

[Thomas]

Привет!.
По моему ты не правильно написал последовательность кода.
Нужно так:

Application.DoEvents()
System.Threading.Thread.Sleep(5000)
здесь пишешь код того что, должно произойти после задержки

Попробуй.

Удачи во всем.

ЗЫ А что такое Close_Click у тебя? По моему слово Close зарезервированное. А событие клик можно получить на форме или контроле.

[Novichok$]

спасибо, но не помогло.

[Duress]

Пользуйся:
Private TSleep As Threading.Thread

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TSleep Is Nothing Then
TSleep = New Threading.Thread(AddressOf StarteSleep)
TSleep.Start()
ElseIf TSleep.ThreadState <> Threading.ThreadState.Running And TSleep.ThreadState <> Threading.ThreadState.WaitSleepJoin Then
TSleep = New Threading.Thread(AddressOf StarteSleep)
TSleep.Start()
End If
End Sub

Private Sub StarteSleep()
While Me.CheckBox1.Checked
MessageBox.Show("Pause")
Threading.Thread.Sleep(60000)
End While
End Sub

[Sebas]

нды, а таймер использовать в голову не приходило?

[Novichok$]

Нды, я когда Sebas отвечает и не читаю уже

Таймер жрал у меня очень много ресурсов. А вот штука, которую написал мне Durres работает просто отменно, за что ему глубокое мерси от меня

[Ramzes]

Novichok$

Зря ты не читаешь то, что Себас пишет, толково пишет - это раз
Потоки - это два
Таймер это три

[Sebas]

Таймер жрал у меня очень много ресурсов.

Это как?!?!

[Viper]

И правильное проектирование программы - четыре, а вернее с него то и надо начинать

[Ramzes]

И правильное проектирование программы - четыре, а вернее с него то и надо начинать

-это 0