今天就跟大家聊聊有关如何使用doevents,可能很多人都不太了解,为了让大家更加了解,小编给大家总结了以下内容,希望大家根据这篇文章可以有所收获。
如何使用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
看完上述内容,你们对如何使用doevents有进一步的了解吗?如果还想了解更多知识或者相关内容,请关注亿速云行业资讯频道,感谢大家的支持。
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。