SYSDBA: Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure Sleep(Milliseconds: LongWord); safecal…»

2023-12-13T10:15:32Z

Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure Sleep(Milliseconds: LongWord); safecal…»

Новая страница

{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure Sleep(Milliseconds: LongWord); safecall;}}

<onlyinclude>Пауза на указанное количество миллисекунд.</onlyinclude>

;Milliseconds: Пауза в миллисекундах.

<syntaxhighlight lang="vbnet">
Option Explicit
Sub ShowProgressWindow

Dim Creator, P, I, C
Set Creator = New TCreator
Set P = Creator.GetObject(nil, "TgdccProgress", "")

P.StartWork "Обработка данных", "Длительный процесс", 100, True, True

C = System.StartPerfCounter("test", "Процесс...")

For I = 1 To 100
P.StartStep "Step #" & I, 1

System.AddLogRecord "Test", "Идет выполнение процесса...", 1, -1, "", False

If P.Canceled Then Exit For

WinAPI.Sleep 200
Next

System.StopPerfCounter(C)

P.EndWork "Обработка завершена успешно", False
End Sub
</syntaxhighlight>

Gedemin TLB.IgsWinAPI.Sleep - История изменений

SYSDBA: Новая страница: «{{MethodDef_Template|unit={{#explode:{{PAGENAME}}|.|0}}|visibility=public|class={{#explode:{{PAGENAME}}|.|1}}|src=procedure Sleep(Milliseconds: LongWord); safecal…»