VB 程序设计

10个成员

加速Visual Basic For Application(VBA)

发表于 2016-12-19 3453 次查看
如今的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" 将是最佳选择。

 

发表回复
你还没有登录,请先登录注册