如何使用doevents

今天就跟大家聊聊有关如何使用doevents，可能很多人都不太了解，为了让大家更加了解，小编给大家总结了以下内容，希望大家根据这篇文章可以有所收获。

创新互联公司坚持网页设计，我们不会倒闭、转行，已经持续稳定运营十多年。专业网站建设公司技术，丰富的成功经验和创作思维，提供一站式互联网解决方案，携手广大客户，共同发展进步。我们不仅会设计网站，更会营销型网站建设。帮助中小型企业在“互联网+"的时代里通过推广营销传播路线转型升级，累计帮助多家客户实现网络营销化，与我们一起携手共创未来！

如何使用doevents

Doevents

把权限转让给操作系统，处理事件使用。好处就是，系统界面不会卡顿。

使用场景：我们一般处理大量数据，导致系统卡在当前界面上面，考虑到用户体验，我们要使用doevents

doevents注意点

1、使用doevents的时候，如果事件还没有结束，就马上关掉，程序还在执行中，并没有真正关键应用程序。

2、在拖动系统界面的时候，doevents对程序需要刷新的值就不会被刷新

防止doevents造成无法关闭进程的解决方案

使用在form_unload事件中，即窗体结束之前执行

1、在循环中加入一个结束循环的标记 

2、使用end结束

课堂总结

1、学会使用doevents，了解应用场景，可以使用在读取大文件时候

2、掌握doevents造成进程存留的解决方案

3、在执行系统其它事件的时候，会使得对应的界面不会被刷新界面：

源代码：

Dim flag As BooleanPrivate Sub Command1_Click()flag = TrueDim i As DoubleWhile flagText1.Text = Val(Text1.Text) + 1DoEventsWendEnd Sub
Private Sub Form_Unload(Cancel As Integer)flag = FalseEndEnd Sub

看完上述内容，你们对如何使用doevents有进一步的了解吗？如果还想了解更多知识或者相关内容，请关注创新互联行业资讯频道，感谢大家的支持。