加速VisualBasicForAlication(VBA)_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

加速VisualBasicForAlication(VBA)

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:加速程序MsgBox如果
黑客防线网安网讯:如今的CPU的发展是越来越快,从386、486到今天的Pentium、PentiumⅡ,发展速度可谓快矣。然而,在CPU高速发展的同时,应用软件的“体重”也随之猛涨,从我学电脑时的几K、几十K,到今天的几...
如今的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"将是最佳选择。->

    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14559-1.html
网站维护教程更新时间:2012-04-03 01:09:23  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer