Приостановка Sub

[TohaSan]

Мне нужно приостановить выполнение процедуры на заданное количество милисекунд, например 700. Как это сделать?
Я пробовал через API:
Private Declare Sub Sleep Lib "kernel32.dll" (ByRef dwMilliseconds As Int32)
Sub x()
MsgBox("1")
Sleep(700)
MsgBox("2")
End Sub
Что-то не работает. Может что-нибудь не так?
Также пробовал через: System.Threading.Thread.Sleep(700)
Но на заданное число милисекунд останавливается вся программа.

[tyomitch]

Вместо ByRef надо ByVal. И, действительно, приостановится вся программа.

[TohaSan]

А как мне приостановить только процедуру, а не всю программу?

[tyomitch]

Вынести её в отдельный поток.

[Sebas]

в .NET ненужно использовать эту АПИ, есть встроенные метод.

[tyomitch]

Также пробовал через: System.Threading.Thread.Sleep(700)
Но на заданное число милисекунд останавливается вся программа.

[SpawnProduction]

Также пробовал через: System.Threading.Thread.Sleep(700)
Но на заданное число милисекунд останавливается вся программа.

Естественно... потому как ты тормозишь текущий поток.

в .NET ненужно использовать эту АПИ, есть встроенные метод.

Да тут вообще API лучше не вызывать...

Так, решение проблемы тебе уже в общем-то сказали

Вынести её в отдельный поток.

Выглядит примерно так:

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

Dim NewThread As New System.Threading.Thread(AddressOf test)
    Private Sub test()
        MsgBox("1")
        NewThread.Sleep(10000)
        MsgBox("2")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NewThread.Start()
    End Sub

[TohaSan]

Спасибо!!!
Представляете, я тоже так писал, но этот код у меня подчеркивался таким цветом, что будто может возникнуть ошибка (был зеленый цвет). Студия говорила, что этот метод Shared и может лучше заменить на Thread.Sleep. Оказывается: менять ничего не надо было! Спасибо!!!

[Sebas]

NewThread.Sleep(10000)

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