刘金玉的零基础VB教程074期：如何使用doevents

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、在执行系统其它事件的时候，会使得对应的界面不会被刷新

界面：

源代码：

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