说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

加速Visual Basic For Application(VBA)

HTML文档下载 WORD文档下载 PDF文档下载
加速Visual Basic For Application(VBA)
如今的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" 将是最佳选择。
在vb中让控件大小和位置随着表单的大小成比例变化的方法 在VB中实现闪动标题栏 在VB中实现位图的透明放置 在VB中使用数据窗体设计器插件 在VB中制作单独程序封面的两种方法 在VB中制作透明按钮 在Visual Basic中如何拖动窗体或控件 在Visual Basic中显示动态运行进度 在菜单中加入图标 -VB资料 在程序中调用关闭Windows对话框-VB资料 在任务栏中显示无边框窗体的图标-VB资料 在系统菜单上添加自定义菜单项 -VB资料 在运行时动态生成多个相同的控件?-VB资料 在最小化状态时提供提示 -VB资料 暂时禁止窗口更新-VB资料 VB怎样得到文本框(TextBox)中的文本行数? 制造出透明的Form -VB资料 VB制作半透明窗体和形状不规则的窗体 VB制作方向按钮 VB制作渐变的窗口背景色 字体闪烁 -VB资料 自动改变控件大小-VB资料 自制IE风格按纽控件-VB资料 VB6.0中通过MSChart控件调用数据库 用VB6实现动态增减控件 ActiveX控件的创建-VB资料 ADO控件和DATA控件的冲突(不能共存)的解决方法-VB资料 Combo的自动查询技术 -VB资料 DirectX7.0使用心得(1) -VB资料 DirectX7.0使用心得(2) -VB资料 DirectX7.0使用心得(3) -VB资料 請問銀行系統一般用什麼數據庫! 请大家推荐一个方便好用的网格控件,可以编辑、保存单元格的内容,bug又少的 急死我了,这行SQL语句错在那里呢? ORACLE8I安装问题,急。。。。。。 还是这两本书110分 急救:主板CMOS故障!! 有谁知道在JBuilder中插入一副图片应该用哪个Compoent 加急问题??关于.properties!!在线等, Win2K下控制台程序处于选定状态,如何恢复? 窗口自动关闭 救命啊!严重问题!怎么老是显示E2316:TempSongList::PlayFirstSong()is not a member of 'TempSongList'? 关一个小笨蛋生存的困惑,还请各位GG、JJ一定要帮帮忙呀~~~~ Interface中添加方法的问题,请高手指教!再线讨论!! c#访问FOXPOR数据库问题 WORD求源代码加分之四 怎么样获得一个 EDIT 的 句柄 ?? 请问嵌入网页中的Activex如何调整自身的大小?请各位高手帮忙!谢谢! Oracle和SQLSERVER中5用户10用户到底是什么意思? 我身边的一个PLMM说,她想找一个成熟、幽默、聪明的程序员。 一个局域网内访问odbc数据源的问题 对女孩子不能太热情了! 一个easy 的question 请精通C#与VB.net的大虾帮忙翻译一下 在异地拷贝一个文件(200M以上)到本地,如何做 《C++程序语言》(特别版)怎么样 getContentPane()是什么意思? 高手请进!嵌入网页中的Activex如何获取加载它的浏览器对象?谢谢! i am 24 year old ,but i have nothing 请问哪里有exchange2000 server??? XP,IE 6 SP1,安装JRE 1.4无数次,<APPLET>标签下的东西仍不能看,<OBJECT>可以,为什么??!!求救!! Socket发送接收的问题! c++ builder6的盘 mapx 问题? partition magic 8.0 一个既包含静态图象又包含视频播放的视频,怎样把它抓屏下来??? SOS!!!一个有关全文检索,以及文档的数据库存储的问题,急急!各位大侠出招啊,在线等候 请问如何在程序中将CEdit控件设为只读或取消只读, Java认证问题 请问你们认为哪种操作系统更好用和稳定? 关于mfc dll wizard 做出来的dll 的内存泄漏问题!! vc++与C++Builder有何本质的区别? 能否做个象Media Play的ACTIVEX查件,既有动画窗口,又有按钮??? 高手,关于数据库转换的问题 给分:谁有关于“从网卡取得数据”方面的论文 大家好,有一个关于拔号、专线系统的IP地址问题 SAX的问题 表单传递后,如何判断用户是否填入了内容的? 请教 请教各位大侠 各位好,小弟初学Oracle,请各位指点哪有相关电子书下载,多谢! 辞职,不知是对是错?(第一次散分,请版主高台贵手) 例1:根据下列反应的焓变,计算C(石墨)与H2(g)反应生成1 molC2H2(g)的焓变. 苍耳靠什么传播种子长一点 染色质的四级结构为什么是染色单体而不是染色体? 计算C与H反应生成1MOLC2H2的焓变例1:根据下列反应的焓变,计算C(石墨)与H2(g)反应生成1 molC2H2(g)的焓变.C(石墨)+ O2(g)=CO2(g) △H1=-393.5kJ·mol-1 ①2 H2(g)+ O2(g)=2 H2O(l) △H2=-571.6kJ·mol-1 ②2 C2H2(g)+5O2(g)=4CO2( E=MC平方这个结论怎么来的大神们帮帮忙能量=质量X光速的平方 是怎么得来的 具体点的 如果是公式更好 染色体,染色质,姐妹染色体,姐妹染色单体的图各是怎样的?染色体,染色质,姐妹染色体,姐妹染色单体的图,要清晰的,最好是比例相同的,一目了然的,我脑子不好使.不然早会了!如果把染色体看作 根据下列反应的焓变,计算C(石墨)与H₂(g)反应生成1 molC₂H₂(g)的焓变.①C(石墨)+ O₂(g)=CO2(g) △H₁=-393.5kJ·mol-1 ②2H₂(g)+ O₂(g)=2 H₂O(l) △H₂=-571.6 下水管可能被小木块堵住了,有什么不切开管道的方法疏通吗堵在S弯处,而且已经看不到 染色体,染色质,染色单体有什么区别啊那染色单体与姐妹染色体有什么区别啊 哪些国家有苹果 梨子及其他水果,需要套袋子的, 苯环侧链氧化,侧链可能去了哪?如题 例如C6H5-CH2CH2CH2CH2CH2CH3 那一个C变-COOH 剩下的 CH2CH2CH2CH2CH3去了哪? 请问:苍耳靠什么传播种子?豌豆靠什么传播种子?还有什么靠什么传播种子? 在(NH4)2SO4晶体中加入足量的NAOH溶液,加热,充分反应后的气体能被0.1mol/l的盐酸300ML完全吸收.在(NH4)2SO4晶体中加入足量的NAOH溶液,加热,充分反应后的气体能被0.1mol/l的盐酸300ML完全吸收.求(NH4)2SO4 侧链受苯环的影响而易被氧化是什么意思? 太阳对地球引力做负功是什么? 选词填空(不能重复)改革、改善、改进、改正、改造、改换、改变、改良()生活、()错误、()品种、()世界()体制、()工作、()罪犯、()计划 二氧化锰和与盐酸反应的产物是什么? 在一定温度和压强下,50mlA2气体与75mlB2气体化合生成50ml气体化合物,则该化合物化学式为物质的量那块怎么求的 载体是在核糖体上合成?``它是由什么构成?` 除杂题,co2(co)——通入氧气点燃,为什么不对? 物态除了气态液态和固态,还有什么物态? 在括号里填上带“风”的词语(不允许重复),然后选词填空( )化雨 ( )习习 ( )凛冽 ( )送爽( )怒号 ( )骤雨 ( )劲草 ( )细雨①:( ) 凉露惊秋.②:塞外常常( ),黄沙遍天,一不小心还有坠入深谷的危险.③ CO和CO2的混合气体18g,通入足量的氧气,点燃反应后测得CO2的总体积11.2L,求原混合气体中CO的质量 关于地震中救命三角的问题现在网上一直都在说什么地震中救命三角的方法,不知道是真是假,希望有人能站出来说说?因为这篇文章后面写了一个自治磁铁测地震的方法,这个方法很假很假有点 核糖体的合成部位有哪些? CuSO4与CuSO4晶体有区别吗 为什么人类会受地球引力控制? 选词填空.填上表示“死”的词语,不能重复.无数战士 ( )在战场上.烈士夏明翰英勇( )前,昂首挺胸,高唱《国际歌》 硫酸铜为什么变成晶体?我需要知道硫酸铜怎么变成晶体的!实验过程我已经知道了,我想知道产生了什么化学或者物理反映!急 胶体中加电解质、加热、搅拌,为什么会聚沉?要原因? H4[Fe(CN)6]是叫六氯合铁(Ⅱ)酸,还是六氯合亚铁(Ⅱ)酸 硫酸铜和硫酸铜晶体有什么区别吗? 胶体聚沉中加电解质是化学反应胶体粒子会吸附离子是化学反应吗? 二氧化锰与盐酸反应二氧化锰和盐酸制氯气,盐酸的最小浓度是多少?本人计算的答案是4.5mol如果答案选中,另外加给你! 为什么质粒上要有标记基因目的是? 栾树有几种呢?种植栾树将来的发展趋势如何? 一元强酸与一元强碱刚好完全中和时,一定相等的是? A.酸和碱的质量 B.酸和碱的质量分数A.酸和碱的质量 B.酸和碱的质量分数 C.酸和碱的物质的量的浓度 D.氢离子和氢氧根离子的物质的量 质粒中怎么对标记基因进行筛选质粒如果自身进行环化连接同样具有这个标记基因,这该怎么把它区分出来 哪里有栾树哪里有栾树苗 二氧化锰和盐酸怎样反应 质力 玻璃为什么在玻璃烧制中 不能立刻成型 要放一个星期释放质力 这是为什么这个质力要是什么呢 【松子】松子的营养价值高在哪里 DNA具体在哪一时期开始复制? MC我的世界细菌mod怎么使用?什么细菌增生方块之类的,怎么用? 氯化铁溶液中是否存在少量氢氧化铁和氢氧化亚铁沉淀 DNA复制完成后分开的时期为 浓硫酸溅到手上,可以用干抹布擦吗 地震的生命三角区有哪些位置? 抗生素抗性标记基因 知道什么是抗生素抗性标记基因? 浓硫酸占到手上能否立即涂上氢氧化钙溶液?如果立即用抹布擦抹布不就变成C了? 与鬼针草、苍耳传播方式相同一个果实有四个种子的植物. 在基因工程中.标记基因和抗性基因描述的是同一个东西吗? 水厂河中700取水管被沙石堵塞一半怎么疏通 政治理论常识有哪些具体的内容? 计算c(石墨)与H2(g)反应生成1molC2H2(g)的焓变C(石墨)+ O2(g)=CO2(g) △H1=-393.5kJ·mol-1 ①2 H2(g)+ O2(g)=2 H2O(l) △H2=-571.6kJ·mol-1 ②2 C2H2(g)+5O2(g)=4CO2(g) + 2 H2O(l) △H3=-2599.2kJ·mol-1 ③答:盖斯定律.就是把题目 我怀念朋友 扩写句子 实验室中硫酸亚铁或氯化亚铁溶液长时间放置将会有什么变化 根据下列反应的焓变,计算C(石墨)与H2(g)反应生成1mol例1:根据下列反应的焓变,计算C(石墨)与H2(g)反应生成1 molC2H2(g)的焓变.C(石墨)+ O2(g)=CO2(g) △H1=-393.5kJ·mol-1 ①2 H2(g)+ O2(g)=2 H2O(l) △H2=-571.6kJ·mol- 我怀念朋友.怎么扩句 高一寒假课程导学73页:氨气的喷泉实验探究操作中:为什么先挤压胶头滴管的胶头,后打开止水夹更好?氨气的喷泉实验成功的关键有(1)装置的气密性良好,为什么?如果不好,有啥影响?如果 江苏省长李学勇:划定生态红线 建立补开封官方回应批准庄园打深水井事件称:江苏通报今秋秸秆焚烧“第一把火”处理公园免费后质量下降 南京市民质问财政南京出现“烂尾工程”现象 财政部门称南京财政局谈政府采购“挑贵的买”:综南京中小河治理工程将收官:14条河流苏州小朋友上演变装T台秀迎接万圣节马来西亚副首相为选举造势 出席者可获日本内阁官房副长官力挺《特定秘密保护数据显示中国赴美名校留学生每4人就有韩称中韩2014年起联手管制黄海非法法国数百活动人员斗牛场前集结 抗议斗韩国“科学技术卫星3”号抵达俄罗斯 500万叙利亚人在国内成难民 冲突严新警方樟宜机场缴7.1公斤冰毒 一外阿富汗总统选举唯一女候选人被取消竞选澳85岁志愿者因慈善工作获得“默多克韩国自主研发太空观测卫星抵俄基地 拟新加坡建房局凭借公共住房项目获得国际阿富汗总统选举唯一女候选人被取消竞选司前逾百名不锈钢企业集体“充电”佛山举行最佳志愿服务“四个十”授勋仪光大启动2015年度客户满意度调查庆祝志愿者日 心协举办义工联欢会2016家居行业走进“聚变的春天”马特·达蒙出局,小李最大对手是老白远洋广州首个项目远洋天骄亮相时报体育频道商业地产要过冬需紧密融合“互联网+”江门80条贫困村年底全部脱贫空气净化器销售缘何负增长?帅爆灯!原来可以这样风骚夜骑总装李明泉少将被查广州恒大碰上新对手“双12”小家电价格创新低人民币中间价四天下调近400基点形态看股江门第二个跨境电商清关中心启用新国标为陶卫业摘掉“三高”帽子卖菜卖彩各自精彩高新区(江海区)拟普及15年教育
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘