加速VisualBasicForApplication(VBA) >>三湘时空-IT知识库[www.sxsky.net]

如今的CPU的发展是越来越快，从386、486到今天的Pentium、PentiumⅡ，发展速度可谓快矣。然而，在CPU高速发展的同时，应用软件的“体重”也随之猛涨，从我学电脑时的几K、几十K，到今天的几十兆、几百兆，这变化连我自己都感到吃惊。CPU的进步，使人们工作更加快速，效率大增，同时也养成了人们“不求简”的不良习惯。笔者曾见过一位朋友正在编写一段程序，用的是VBA，程序代码如下：
　　WithActiveWindow
　　IfWindowState=wdWindowStateMaximizeThen'thisisthefirstpart!
　　MsgBox"ThisisaMaximizeWindow"
　　EndIf
　　IfWindowState=wdWindowStateMinimizeThen'thisisthesecondpart!
　　MsgBox"HereisaMinimizeWindow"
　　EndIf
　　IfWindowState=wdWindowStateNormalThen'thisisthethirdpart!
　　MsgBox"Nowhere,isaNormalWindow!"
　　EndIf
　　EndWith
　　乍看一下，似乎结构还挺漂亮，是个好程序。但细分析一下，你会发现，这段程序是个败笔。因为这三段程序没有实现应该具有的逻辑结构。我将这个意见告诉了这位朋友，他到很能听进话，马上修改了上述程序，具体程序代码如下：WithActiveWindow
　　IfWindowState=wdWindowStateMaximizeThen'thisisthefirstpart!
　　MsgBox"ThisisaMaximizeWindow"
　　ElseIfWindowState=wdWindowStateMinimizeThen'thisisthesecondpart!
　　MsgBox"HereisaMinimizeWindow"
　　ElseIfWindowState=wdWindowStateNormalThen'thisisthethirdpart!
　　MsgBox"Nowhere,isaNormalWindow!"
　　EndIf
　　Endwith
　　我的那位朋友写完这段程序后，冲我笑笑，意思说：“怎麽样？”我看了看这段程序，心想：如果WindowState不等于wdWindowStateMaximize的话，则要在判断WindowState是否等于wdWindowStateMinimize，如果还不等于的话呢？则要继续判断是否等于wdWindowStateNormal，这样下来，要闯三个“家门”方可进对，累不累啊？我看着不耐烦了，自己亲自编了一段程序：
　　SelectCaseWindowState
　　CasewdWindowStateMaximize'thisisthefirstpart!
　　MsgBox"ThisisaMaximizeWindow"
　　CasewdWindowStateMinimize'thisisthesecondpart!
　　MsgBox"HereisaMinimizeWindow"
　　CasewdWindowStateNormal'thisisthethirdpart!
　　MsgBox"Nowhere,isaNormalWindow!"
　　EndSelect
　　正如你所看到的，这段程序简练、易懂、可读性强，相信会为程序增色不少。而且如果调试起来，你会发现它的其他优点。难怪朋友恍然大悟呢！
　　其实，使用哪种判断语句，也是有章可循的。比如：如果有两种可能性，那麽可毫不犹豫地选择If/Elseif；对于两种或两种以上的可能性，最好选择SelectCase/EndSelect。多数情况下，如果只有一种唯一选择性的关系，那麽，"ifthen/endif"将是最佳选择。->

上一篇:在VB中设计倒计时程序

下一篇:用VB函数轻松访问系统注册表