|
|

楼主 |
发表于 2006-6-15 08:55:49
|
显示全部楼层
感谢楼上朋友的思路~
问题:如何中止一个效长的循环处理过程,只是中止不是强行关闭程序 。
具体内容:一个比效大的循环处理过程,可能执行要很长时间,如何才能在执行过程中中止它,点继续时又能按照前次的终止点继续。
解决方案:
下面是转载(编写软件:VB6。0)
引用程序中的一段:
If bFlag = False Then
bFlag = True
Else
Index = i
bFlag = False
End If
问题:我对bFlag的含义不是很了解,不知道那位大虾可以说明下!
weiweiplay(虚幻) 于 2005-10-19 15:50:18
Option Explicit
Private bFlag As Boolean
Private Index As Long
Private Sub Command1_Click()
Static i As Long
If bFlag = False Then
bFlag = True
Else
Index = i
bFlag = False
End If
If bFlag Then
For i = Index To 100000
Caption = i
If bFlag = False Then Exit For
DoEvents
Next i
End If
End Sub
Private Sub Form_Load()
bFlag = False
Index = 0
End Sub |
|