神马品牌网dnf元素脱手极冰:我的VB程序老是CPU100％，没有响应
来源：百度文库 编辑：神马品牌网 时间：2024/05/05 01:22:43
下面是出问题的代码，在这之前还有一段下载的代码就不说了
我想要实现的是，当这个文件下载到100％的时候，
也就是zhuanji(2).Caption = "下载进度：100%" 的时候，就弹出一个“下载完啦”
如果不是100％，就接着下载，不去执行下面的操作，一直到下载完毕，还是跳出那个“下载完啦”，我是这样写的，理论上应该可以吧～ 可是怎么搞得他老是卡死。。。 没有响应，请朋友们给出一段可以解决的方法，谢谢！
999: Zhuangtai_xianshi.Caption = "正在下载文件..."
Sleep 1000
If zhuanji(2).Caption = "下载进度：100%" Then
Zhuangtai_xianshi.Caption = "文件下载完毕..."
MsgBox "下载完啦"
Stop
End If
If Not zhuanji(2).Caption = "下载进度：100%" Then
GoTo 999
End If
我想要实现的是，当这个文件下载到100％的时候，
也就是zhuanji(2).Caption = "下载进度：100%" 的时候，就弹出一个“下载完啦”
如果不是100％，就接着下载，不去执行下面的操作，一直到下载完毕，还是跳出那个“下载完啦”，我是这样写的，理论上应该可以吧～ 可是怎么搞得他老是卡死。。。 没有响应，请朋友们给出一段可以解决的方法，谢谢！
999: Zhuangtai_xianshi.Caption = "正在下载文件..."
Sleep 1000
If zhuanji(2).Caption = "下载进度：100%" Then
Zhuangtai_xianshi.Caption = "文件下载完毕..."
MsgBox "下载完啦"
Stop
End If
If Not zhuanji(2).Caption = "下载进度：100%" Then
GoTo 999
End If
请在 999 那行的下一行 加入 doevents 这样就ok!
即:
999: Zhuangtai_xianshi.Caption = "正在下载文件..."
doevents
如果还不行 就把 你的程序那来看看，你说的问题可能处在 循环上！
恩，明显死循环