VB编程：DoEvents将控制权交给系统，防止无限循环-14_彭世瑜_新浪博客
2023-09-14 09:07:15 时间
一、运行效果：
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
相关文章
- 数据结构–循环队列[通俗易懂]
- 流程控制-循环控制
- Linux Shell循环结构
- 【Groovy】集合遍历 ( 使用 for 循环遍历集合 | 使用集合的 each 方法遍历集合 | 集合的 each 方法返回值分析 )
- 【Groovy】集合遍历 ( 使用集合的 collect 循环遍历集合并根据指定闭包规则生成新集合 | 代码示例 )
- MySQL使用For循环实现数据操作（mysql写for循环）
- 循环长跑——Oracle表的延续性（oracle表循环）
- 掌握Linux脚本for循环，轻松打造高效自动化（linux脚本for循环）
- Oracle循环查询更快捷高效体验一番吧（oracle中循环查询）
- C#数据结构之循环链表的实例代码
- php中如何使对象可以像数组一样进行foreach循环
- json数据的列循环示例
- Jqueryeach方法跳出循环,并获取返回值(实例讲解)