https://v.qq.com/x/page/i0941vswh6y.html
文字讲解：
刘金玉的零基础VB教程074期：
如何使用doevents
Doevents
把权限转让给操作系统，处理事件使用。好处就是，系统界面不会卡顿。
使用场景：我们一般处理大量数据，导致系统卡在当前界面上面，考虑到用户体验，我们要使用doevents
doevents注意点
1、使用doevents的时候，如果事件还没有结束，就马上关掉，程序还在执行中，并没有真正关键应用程序。
2、在拖动系统界面的时候，doevents对程序需要刷新的值就不会被刷新
防止doevents造成无法关闭进程的解决方案
使用在form_unload事件中，即窗体结束之前执行
1、在循环中加入一个结束循环的标记
2、使用end结束
课堂总结
1、学会使用doevents，了解应用场景，可以使用在读取大文件时候
2、掌握doevents造成进程存留的解决方案
3、在执行系统其它事件的时候，会使得对应的界面不会被刷新
界面：
源代码：
代码语言：javascript复制Dim flag As Boolean
Private Sub Command1_Click()
flag = True
Dim i As Double
While flag
Text1.Text = Val(Text1.Text) 1
DoEvents
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
flag = False
End
End Sub
