- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
<FONT color=#fed969 size=4>
+ Y5 Z4 }8 C8 S+ C5 Y* ]< ><FONT color=#f70909>作者;小珂 转自<a href="http://www.hackbase.com/" target="_blank" >黑基</A>bbs<a href="http://hackbase.com/News/hk" target="_blank" >原创</A>作品版
( \) i% P; }6 e# b( L2 M4 c版权归<a href="http://hackbase.com/hacker" target="_blank" >黑客</A>基地所有, 转载请注明出处</FONT></P>
- J9 W& g* A9 p& V% `6 A/ a) _+ }< >前一日子写了篇替VB喊冤,感到说理没有力度,泛泛空谈,远没有起到喊冤的效果-_-# k1 x8 L: N6 R3 |! B: _
所以呢,现在把我以前的VB<a href="http://hackbase.com/hacker" target="_blank" >代码</A>优化的一点小小的<a href="http://hackbase.com/game/jy" target="_blank" >经验</A>总结一下,希望可以给大家带来点帮助,也希望大家能0 V+ [1 k% T N$ v
把各自的观点补充一下~~% s/ \9 G& {- S$ [" F) ?
第一,偶认为要写出运行速度快的程序,在定义数据类型上要注意一下,: c1 C l7 B% Q" `! w
比如说Single,Double和Currency这几种数据类型如果可以的话应尽量用Integer或Long 代替,说到这,有位仁兄举手发言了:“那偶要是想数据能够保存小数,怎么能用那2个整型呢?”,别急啊,我下面就想说这个,其实小数也可以保存在Integer类型的变量中。
2 v$ g. F& j: T6 n9 g例如程序中约定有三位小数,那么只需要将保存在Integer变量中的数值除以1000就可以得到结果。+ E" F9 F& M3 K7 q/ T
根据<a href="http://hackbase.com/game/jy" target="_blank" >经验</A>,使用Integer和Long替代Single,Double和Currency后,<a href="http://hackbase.com/hacker" target="_blank" >代码</A>的运行速度可以提高将近10倍。# e$ c# m& r' r0 j! T
这个可不是吹牛啊~~,不信你也试试?</P>
1 G3 p6 o: m/ y) ?/ q$ \ W6 a< >第二,要尽量避免使用变体,这个稍微懂点<a href="http://hackbase.com/hacker/program" target="_blank" >编程</A>的估计都能理解,
% ^7 k) L1 B# z/ Q变体类型的变量需要16个字节的空间来保存数据. w9 [' Q* J4 ?
如果想写出效率高,质量好的程序,就不要偷懒哦~~</P>( b* V: R! \% D3 \# g
< >第三, 尽量使用数组,避免使用集合,
, {' n4 F: G4 k, T! k; E能用数组的就不要考虑集合,为什么?# F; j$ s U7 v3 ~, k
在VB中,数组是最高效的数据结构之一。
* G6 b4 i V) g& J' a [" s2 n自己想想,集合作为一个对象,* `# C! a+ O H8 K j0 e8 K- }2 C, k6 S
其数据的存取速度可能只是数组的百分之一哦; P, \/ L3 T3 e& R6 l* X+ A
,所以说能用数组的千万不要自己去找麻烦~~
1 q9 H& C3 ?0 v4 Z7 k当你有多个保存类似数据的变量时,也可以考虑将他们用一个数组代替。
( V' D) e4 E5 k另外记着不要使用循环来在数组间进行拷贝工作,
Q, b7 r) q, y9 z请使用更快的API函数:MemCopy或者RtlMoveMemory</P>
- P/ _1 B: `# O< >第四,尽量 不要使用ActiveX控件7 X& T9 O' w$ c. @; ]2 f
除非ActiveX控件涉及到用户界面,否则尽量使用轻量的对象,
1 M( t/ Z/ @, S例如类。这两者之间的效率有很大差异。8 @" ~$ V: T. Q2 T) D
如果你设计的ActiveX对象不涉及到用户界面,就使用ActiveX DLL代替控件
8 ^) f% l9 L% L. W$ r3 o# ?$ W& {在涉及到使用ActiveX控件和DLL的时候,很多程序员喜欢将它们编译好,' \. t* i1 J8 i3 R
然后再加入工程中。我建议你最好不要这样做,' \/ R, C& E6 j. K
因为从VB连接到一个外部对象需要耗费大量的CPU处理能力。# f! x( o' S( d; C! R" ]. A
每当你调用方法或存取属性的时候,都会浪费大量的系统资源。 M, k/ c% }. L, k" d% [% a. \
如果你有ActiveX控件或DLL的源<a href="http://hackbase.com/hacker" target="_blank" >代码</A>,将它们作为工程的私有对象。</P>/ A' z- C+ O% n& ?- a, ]
< >第五,减少模块的数量
/ l3 p) Q% L7 P: |* Q有些人喜欢将通用的函数保存在模块中,对于这一点我表示赞同。: t5 u8 _& O% S8 h/ n
但是在一个模块中只写上二三十行<a href="http://hackbase.com/hacker" target="_blank" >代码</A>就有些可笑了。
4 J0 A7 \! t j; Y6 @ C2 @' K如果你不是非常需要模块,尽量不要使用它。这
7 a D% K0 B3 D# N" r样做的原因是因为只有在模块中的函数或变量被调用时,
' _: [. M; m O8 V6 n* JVB才将模块加载到内存中;当VB应用程序退出时,
* o* _& g7 h- N& d+ t8 [) y2 f才会从内存中卸载这些模块。如果<a href="http://hackbase.com/hacker" target="_blank" >代码</A>中只有一个模块,: P$ g, L6 a) W8 @) t
VB就只会进行一次加载操作,这样<a href="http://hackbase.com/hacker" target="_blank" >代码</A>的效率就得到了提高;+ B) y' X/ O6 U5 U3 c$ B1 ~
反之如果<a href="http://hackbase.com/hacker" target="_blank" >代码</A>中有多个模块,VB会进行多次加载操作,<a href="http://hackbase.com/hacker" target="_blank" >代码</A>的效率会降低。</P>1 }+ h2 V( l- S! N/ c& z3 B8 X
< >第六,减少图片的使用
0 A8 b: f' ]) I& G图片将占用大量内存,而且处理图片也需要占用很多CPU资源。
9 k( C! P; r3 o g在<a href="http://down.hackbase.com/" target="_blank" >软件</A>中,如果可能的话,
/ s5 x7 O0 \4 q5 A可以考虑用背景色来替代图片,这个我常用,呵呵~~</P>( Y# n1 `; k" P, @8 P9 ?% f
< >第七,其他的一些小<a href="http://hackbase.com/network/network" target="_blank" >技巧</A>; Z) u1 E) R$ ^8 b( B+ y2 q4 F
1,判断字符串是否为空% [0 N$ @1 I! e/ ^' S: s! ]- z
检查字符串是否为空时一般使用这种方法
% M' L- a: z7 Y% t- ?3 NIf Text1.Text = "" then, X$ J) G) I& d# `7 h# e# E
end if! x9 H/ K7 R8 `6 \! k- C
如果使用& C. t% T/ Y2 g% o8 r
If Len(Text1.Text) = 0 then
. z0 Y C8 r0 n( I9 i% Zend if
! b) s; t/ P( S2 z0 e0 h效率会大大提高, z4 n6 X% U4 ~* w" n3 q
2,多使用With语句引用对象
" b) k' ?( ?: J% j3,单独定义和分配对象4 d, Y. a# f% g+ {# t% j" V% ~
定义对象和分配数值可以使用联合语句:Dim obj As New MyClass。但是这要比以下2个单独的语句运行速度慢:8 C+ }* N/ J3 {
Dim obj As MyClass
1 Z5 _" G/ R O5 E2 J/ Y$ [Set obj = New MyClass0 b3 I; {! h) J6 g
4,使用Move方法0 |" N, j, G" {6 F- | K% m
在改变对象的位置时,有些程序员喜欢使用Width,Height,Top和Left属性,如果使用Move方法代替,效率会提高很多
$ U) O7 s6 E$ ^* k% P比如8 S: Z4 c- S9 m7 {5 l
Image1.Width = 100
& g+ T' ]4 k' X7 w" o; dImage1.Height = 100
9 c( m- u+ p: K& \Image1.Top = 0
, p- F% |0 z& l' JImage1.Left = 0+ V8 |9 y/ G8 a! V& y3 x
就可以使用Image1.Move 0,0,100,100 代替</P># [+ }; i$ P( K1 y( ^
< >第八,算法优化) n' D1 O% C K y' E( d" ?
尽可能不要使用平方根运算
7 q8 H) Z& t# q" }实践证明,使用平方根运算将耗费很多的运行时间。5 j% h1 E Q# v. s9 N+ E
比如:宁可使用语句If a * a + b * b = 4 Then ...,
7 c7 l6 d8 l( m( y9 h0 A r! u- h而不要使用达到同等目的的命令If Sqr(a * a + b * b) = 2 Then ...。</P>
* f% l. m( w1 I y< >写了一夜了,也就是把自己以前的一点<a href="http://hackbase.com/game/jy" target="_blank" >经验</A>总结一下,当然还有许多方法一时也想不起来了8 {4 m" W2 Y( S! q
我会在想到过找到这方面的信息时再继续哦,希望大家也能把自己的相关<a href="http://hackbase.com/game/jy" target="_blank" >经验</A>补充一下( \3 S. s5 B! Z S( x" o
另外我写的如果有原则性错误也欢迎大家批评指正,这里先谢谢了~~
+ f2 `: A3 r. {7 J: U我去睡觉了。。。-_-</P></FONT> |
zan
|