Ответов (5)5
Решение
0
Что я делаю, так это добавляю таймер, затем меняю интервал на 1, а затем включаю его, а затем, если я хочу, чтобы он постоянно что-то проверял в цикле, я просто дважды щелкаю таймер для события timer_tick, затем я набираю то, что хочу. Я обычно использую это для обновления настроек, если хочу сохранить все.
0
Помимо множества ответов на то, чтобы цикл выполнялся вечно, это может быть только первый, который фактически использует значение положительной бесконечности для ограничения цикла. Однако на всякий случай я включил дополнительную возможность выхода через заданное количество секунд, чтобы он мог измерить скорость вашего цикла.
Sub RunInfinateForLoop(maxSeconds As Integer)
' Attempts to run a For loop to infinity but also exits if maxSeconds seconds have elapsed.
Dim t As Date = Now
Dim exitTime As Date = t.AddSeconds(maxSeconds)
Dim dCounter As Double
Dim strMessage As String
For dCounter = 1 To Double.PositiveInfinity
If Now >= exitTime Then Exit For
Next
strMessage = "Loop ended after " & dCounter.ToString & " loops in " & maxSeconds & " seconds." & vbCrLf &
"Average speed is " & CStr(dCounter / maxSeconds) & " loops per second."
MsgBox(strMessage, MsgBoxStyle.OkOnly, "Infinity Timer")
End Sub