Как мне отложить выполнение кода в Visual Basic (VB6)?

VB.Net: я бы использовал дескриптор события WaitOne.

VB 6.0: Я видел цикл DoEvents.

Do
     If isSomeCheckCondition() Then Exit Do
     DoEvents
Loop

Наконец-то можно было просто поспать:

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

Sleep 10000

Хотя ответ (DoEvents) будет работать, это заставит ваше приложение использовать 100% одного процессора. В спящем режиме пользовательский интерфейс не отвечает. Что вам нужно, так это их комбинация, и волшебная комбинация, которая, кажется, работает лучше всего:

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

While IsStillWaitingForSomething()
    DoEvents
    DoEvents
    Sleep(55)
Wend

Почему два события DoEvents и один спящий режим на 55 миллисекунд? Сон в 55 миллисекунд - это наименьший фрагмент, который может обработать VB6, и использование двух DoEvents иногда требуется в случаях, когда требуется сверхчувствительность (не API, но если ваше приложение реагирует на внешние события, SendMessage, Interupts и т. Д. ).

Как определить, когда закрытый процесс завершился:

• Архив 1

• Архив 2

Если вы вызываете внешний процесс, вы, по сути, вызываете его асинхронно. Обратитесь к вышеупомянутому документу поддержки MS, чтобы узнать, как дождаться завершения внешнего процесса.

Разбейте свой код на 2 процесса. Запустите первый, затем запустите свой «длительный процесс», затем запустите второй процесс.

Запустите длительный процесс в середине текущего процесса и дождитесь его завершения.

Я бы хотел, чтобы вы просто добавили .net framework system.dll или что-то еще в свои ссылки на проект, чтобы вы могли просто сделать это:

Dim ALongTime As Integer = 2000
System.Threading.Thread.Sleep(ALongTime)

...каждый раз. У меня на машине есть VB6 и VB.net 2008, и мне всегда сложно переключаться между очень разными IDE.

Если вы хотите написать sleep или wait без объявления sleep, вы можете написать цикл, использующий системный таймер. Это то, что я использую для тестирования / отладки при запуске интерпретатора. Это можно добавить, когда интерпретатор приостановлен, если вам понадобится такая вещь:

Dim TimeStart as currency
Dim TimeStop as currency
Dim TimePassed as currency
Dim TimeWait as currency

'use this block where you need a pause
TimeWait = 0.5 'seconds
TimeStart = Timer()
TimePassed = 0
Do while TimePassed < TimeWait  'seconds
    TimeStop = timer()
    TimePassed = TimeStop - TimeStart 
    doevents
loop