VB编程：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
湘公网安备 43102202000103号
