求助：关于doevents的问题，在线等！

aspirinum

我的程序在运行过程中，有时间的循环等待，在循环中我大部分加入了doevents，将控制权交还系统。但有的机器就会出现如果不点一下我的程序，就会出现程序不继续运行的现象，动一下程序后就正常了（接着运行），请问是什么原因，能不能是doevents引起的？谢谢！

asukajjj

代码

aspirinum

Do Until intTestedNum > intTestNum
    Call addSam()
    Application.DoEvents()
    If stepI(0) = 51 And stepI(1) = 51 And stepI(2) = 51 And stepI(3) = 51 then exit do
Loop

addsam 中包含状态查询的代码，有的循环里也有doevents

aspirinum

Sub addSam()   
        Dim intDir As Integer
        Dim intRI As Integer
        Dim I As Integer
        '-------------------------------
        '查询各机构状态,按动作顺序动作
        '--------------------------------
        Select Case stepI(0)   
            Case 0
                Call ZeroInjector(&HFC)  
                stepI(0) = 1
                For intRI = intEndpointStartReagent To intEndpointEndReagent - 1
                    If intAddSamNum + intEndpointStart = intSameReagent(intRI) Then
                        If intAddSamNum >= 1 Then
                            If intSamAddWater < 2 then                                 sngWashTimeFC = 3
                                Exit For
                            Else
                                sngWashTimeFC = 1.1
                            End If
                        End If
                        If boolSamBlank(intNowReagentFC) = False Then
                            sngWashTimeFC = 3
                        Else
                            sngWashTimeFC = 1.1
                        End If
                        Exit For
                    End If
                Next intRI
            Case 1
下面都是类似的代码