在CommandButton_Click事件中用什么语句可以中断一正在执行的过程中的循环?谢了先!

解决方案 »

  1.   

    楼上的主意不行呀,Exit For只能在循环内部用呀……
      

  2.   

    果然是小问题:exit do,exit for,exit sub……
      

  3.   

    试试用timer作循环,暂停的时候只要timer1.enabled=false即可
      

  4.   

    才明白意思,同意lxcc(虫莲) 的做法
      

  5.   

    举个例子:
         while (循环的条件) or (not 结束循环的条件)         if(结束循环的条件) then
                  跳出循环
             end if
         wend
      

  6.   

    试试用timer作循环,暂停的时候只要timer1.enabled=false即可可以再具体一点吗?谢了!
      

  7.   

    举个例子:
         while (循环的条件) or (not 结束循环的条件)         if(结束循环的条件) then
                  跳出循环
             end if
         wend拜托!老兄没看明白我的意思……
      

  8.   

    老大,一层一层跳谁不会呀不行就一下子把这个过程KILL掉……
      

  9.   

    在CommandButton_Click事件中用什么语句可以中断一正在执行的过程?这样大家应该明白了吧,重点不是循环!
      

  10.   

    如果你的一个过程正在进行循环,那么载你的过程循环结束前应该是不会响应command_click()的不过如果你在循环体中增加doevents语句,然后定义一个模块级变量,比如 dim Flag as Boolean 在循环体重增加一句:if flag then exit for 在command_click中增加一句flag = TRUE
      

  11.   

    Dim b As Boolean
    Private Sub Command1_Click()
        For i = 1 To 10000
            DoEvents
            If b = True Then
                Debug.Print i
            End If
        Next
    End SubPrivate Sub Command2_Click()
        b = False
    End SubPrivate Sub Form_Load()
        b = True
    End Sub