VB编程：DoEvents将控制权交给系统，防止无限循环-14_彭世瑜_新浪博客
【摘要】
一、运行效果：
1、没有DoEvents时运行（出现未响应）：
2、有DoEvents时运行（没有未响应）：
二、关键点
1、DoEvents函数，将控制权交给系统，防止无限循环。
2、将下面程序中的“i...
一、运行效果：
2、有DoEvents时运行（没有未响应）：
1、没有DoEvents时运行（出现未响应）：
2、有DoEvents时运行（没有未响应）：
二、关键点
1、DoEvents函数，将控制权交给系统，防止无限循环。
2、将下面程序中的“if”语句删除试试两种效果有何不一样。
三、程序代码
Private Sub Command1_Click()
On Error Resume Next
Dim i As Integer '申明计数器
i = 0 '设置计数器初值
Do While 1 = 1 '无限循环
i = i + 1 '计数器计数
If i > 1000 Then
DoEvents '交给系统
End If
Loop
End Sub
文章来源: pengshiyu.blog.csdn.net，作者：彭世瑜，版权归原作者所有，如需转载，请联系作者。
原文链接：pengshiyu.blog.csdn.net/article/details/109661584
【版权声明】本文为华为云社区用户转载文章，如果您发现本社区中有涉嫌抄袭的内容，欢迎发送邮件进行举报，并提供相关证据，一经查实，本社区将立刻删除涉嫌侵权内容，举报邮箱：
cloudbbs@huaweicloud.com
- 点赞
- 收藏
- 关注作者
评论（0）