开启程序以后程序界会面没反应.docxVIP

Vb 开启程序以后程序界面会“没反应”在VB编程的时候，很多人肯定碰到过开启程序以后程序界面会“没反应”，“没有响应”，但是我们代码要求执行的任务还在正常的进行，任务执行完毕，程序界面又恢复正常，尤其是使用循环的时候很容易出现程序没响应的现象，这类问题怎么解决呢？用DoEv*nts就可以解决。举例：Private Sub DelayTime(num As Long)Dim star, ends As Longstar = timeGetTimeends = starDo While ends - star numends = timeGetTimeDoEv*ntsLoopEnd SubDoEv*nts 是： 转让控制权，以便让操作系统处理其它的事件。最简单的理解，比如你要在某个耗时很多的过程中（最常见的是循环），还要响应某个操作－比如控制进度条的显示，那就需要加入DoEv*nts但是，当看到这句话时，脑子里面的概念很模糊，只有一个浅薄的认识。打个比方：如果现在有一个从1 到100000000的循环，有一点编程常识的人肯定知道在这个耗时较长的循环过程中，基本上是不能进行别的操作（当然不排除一些特别的情况），但是因为某些特别的要求，你要在循环过程中，进行其他操作，这时DoEv*nts 就派上用场了。现在，大家应该明白了DoEv*nts 的主要功能了吧。下面举一些实例（基本上都是转载的），当然建议自己能亲自去试验，理解会深一些。(注: ** 后面的代码表示如果在该处用了这个语句 以下代码中用到了一些api函数,请用vb附带的api浏览器查阅) （转载）一. 基本用法:1.窗体启动时如果要处理的事务太多或者用sleep函数暂停,造成其很久都不能出现时怎么办?例如代码:Private Sub Form_Load()Show**DoEv*ntsSleep 5000End Sub通常容易想到在sleep前加个show,但还是不能达到预想的效果,窗体虽然出来了,但好象只达到了一半,如果加上第3句,将看到效果大不相同2.如果有个很耗时的循环导致程序不响应,怎么办?例如:Dim L As LongFor L = 1 To 1000000** DoEv*ntsNext L如果无**,在循环过程中程序无法处理事件,对于用户来说是不响应,无法控制的3.想在循环中看到处理过程?同样:Dim L As LongFor L = 1 To 10000** DoEv*ntsText1.Text=Cstr(l)Next L无** 时将无法看到text1中的变化,而只在循环结束时看到最后结果4.怎样中止循环?如果有:Private Sub Command3_Click()Dim L As LongDoL = L + 1Debug.Print LDoEv*ntsLoopEnd Sub会发现当关闭窗口后,debug中的数据仍然在变化,说明并没结束需要如下:Dim IsExit As BooleanPrivate Sub Command1_Click()Dim L As LongIsExit = FalseDo While DoEv*ntsIf IsExit = True Then Exit DoL = L + 1LoopEnd SubPrivate Sub Command2_Click()或者在form_unload模块中等等IsExit = TrueEnd Sub其中 isexit是全局变量 有些人喜欢用end语句来结束程序,小程序固然可以,但当太大,或者调用了某些特殊的api函数后可能导致预想不到的错误,如果装载了许多东西在程序结束时不处理将卸载很慢,而且这种做法也极不符合正规软件的要求...总之end语句毛病很多,此不详谈,建议少使用甚至不使用二. 其基本用法大概就这些,现在解析其中的一些[难点]1.为什么还是不能结束?代码如下:Dim IsExit As BooleanPrivate Sub Command1_Click()Dim L As LongIsExit = FalseDoIf IsExit = True Then Exit Do 句0DoEv*nts ** 句1Text1.Text = CStr(L) ** 句2L = L + 1LoopEnd SubPrivate Sub Form_Load()Static N As LongN = N + 1MsgBox NEnd SubPrivate Sub Form_Unload(Cancel As Integer)IsExit = TrueEnd Sub运行结果:启动时msg显示1,点击command1,text1在变化此时再点form右上角的小差(关闭窗体),发现vb运行控制上的按扭并没变化,说明程序还在