多线程

Question

点击界面上的按扭后执行SLEEP(20000),怎样才能在这过程我也可做别的事情,如填TEXT的内容等,是不是要用多线程,如何实现多线程?

Answer 1

Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub SleepEx(Interval As Long)
    Dim dt As Long
    
    dt = GetTickCount()
    Do While GetTickCount() - dt < Interval
        DoEvents
    Loop
End Sub不过这种做法CUP占用会较高

Answer 2

那就不要调用 Sleep()，直接结束按钮事件。