Есть ли аналог Delay?

[Snussi]

Уважаемые господа!
А есть ли в VB аналог функции Delay(time in...) PHP и других языков?

Т.е., мне надо "запаузить" выполнение программы между 2-мя вызовами функций?

[Mleha]

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

[Rainbow]

Да, API-функция Sleep

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

'This project needs a button
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Me.Caption = "Your system will sleep 5 sec."
    'Sleep for 5000 milliseconds
    Sleep 5000
    Me.Caption = ""
End Sub
Private Sub Form_Load()
    Me.Caption = ""
    Command1.Caption = "Sleep ..."
End Sub

[Snussi]

А будут ли в это время обрабатываться другие события, например - таймеры?

[xolod]

Нет, не будут

[Rainbow]

Мог бы и сам проверить такую простую вещь...

Нет, не будут. Sleep приостанавливает впыолнение нити. Поскольку VB весь в GUIшном потоке сидит, то события от таймеров обрабатываться не будут.

А тебе что надо-то?

P.S. хм... что-то я в этой теме все время на минуту позже отвечаю

[tyomitch]

P.S. хм... что-то я в этой теме все время на минуту позже отвечаю

Не иначе, твоя нить приостановлена и не обрабатывает события

[GM]

Помню я так делал:

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

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Sub Delay(ms as long)
dim lStart as long
dim lEnd as long
lStart = timeGetTime
lend = lstart + ms
do while (timegettime > lEnd)
doevents
loop
end sub


Тогда таймеры работают

[Sol]

А есть ли возможность реализовать задержку в VBScript? API там не помогут..

[Antonariy]

Прогнать цикл?

[jangle]

WScript.Sleep (mSek)

[Sol]

Спасибо, jangle!