|
 |
推荐文章 |
|
|
|
|
|
|
|
|
|
|
加速Visual Basic For Application(VBA) |
| 作者：本站收集 日期：2005-8-4 11:11:57 |
|
|
如今的CPU的发展是越来越快，从386、486到今天的Pentium、Pentium Ⅱ，发展速度可谓快矣。然而，在CPU高速发展的同时，应用软件的“体重”也随之猛涨，从我学电脑时的几K、几十K ，到今天的几十兆、几百兆，这变化连我自己都感到吃惊。CPU的进步，使人们工作更加快速，效率大增，同时也养成了人们“不求简”的不良习惯。笔者曾见过一位朋友正在编写一段程序，用的是VBA，程序代码如下：
With ActiveWindow
If WindowState = wdWindowStateMaximize Then 'this is the first part!
MsgBox "This is a Maximize Window"
End If
If WindowState = wdWindowStateMinimize Then 'this is the second part!
MsgBox "Here is a Minimize Window"
End If
If WindowState = wdWindowStateNormal Then 'this is the third part!
MsgBox "Now here, is a Normal Window!"
End If
End With
乍看一下，似乎结构还挺漂亮，是个好程序。但细分析一下，你会发现，这段程序是个败笔。因为这三段程序没有实现应该具有的逻辑结构。我将这个意见告诉了这位朋友，他到很能听进话，马上修改了上述程序，具体程序代码如下： With ActiveWindow
If WindowState = wdWindowStateMaximize Then 'this is the first part!
MsgBox "This is a Maximize Window"
ElseIf WindowState = wdWindowStateMinimize Then 'this is the second part!
MsgBox "Here is a Minimize Window"
ElseIf WindowState = wdWindowStateNormal Then ' this is the third part!
MsgBox "Now here, is a Normal Window!"
End If
End with
我的那位朋友写完这段程序后，冲我笑笑，意思说：“怎麽样？”我看了看这段程序，心想：如果WindowState 不等于 wdWindowStateMaximize的话，则要在判断WindowState是否等于 wdWindowStateMinimize ，如果还不等于的话呢？则要继续判断是否等于wdWindowStateNormal，这样下来，要闯三个“家门”方可进对，累不累啊？我看着不耐烦了，自己亲自编了一段程序：
Select Case WindowState
Case wdWindowStateMaximize 'this is the first part!
MsgBox "This is a Maximize Window"
Case wdWindowStateMinimize 'this is the second part!
MsgBox "Here is a Minimize Window"
Case wdWindowStateNormal ' this is the third part!
MsgBox "Now here, is a Normal Window!"
End Select
正如你所看到的，这段程序简练、易懂、可读性强，相信会为程序增色不少。而且如果调试起来，你会发现它的其他优点。难怪朋友恍然大悟呢！
其实，使用哪种判断语句，也是有章可循的。比如：如果有两种可能性，那麽可毫不犹豫地选择If/Elseif；对于两种或两种以上的可能性，最好选择Select Case/End Select。多数情况下，如果只有一种唯一选择性的关系，那麽，"if then/endif" 将是最佳选择。 |
|
|
|
|
|
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。 |
|
|
|
|
|
责任编辑： 原点 |
投稿作者： 本站收集 |
|
|
信息来源： 网络 |
录入时间： 2005-8-4 11:11:57 |
|
|
|
| |
|
设为首页
加入收藏
总编信箱
投稿或申请专栏请先 [登 陆]