快捷搜索:

VB超频快餐,让我一次用个够!(二)

火眼看透暗藏的Variant变量

假如没有用As语句声明变量,默认类型便是Variants,比如:

Dim name ’ this is a variant

或者,当前模块下没有声明Option Explicit语句时,任何变量都是Variants类型。

许多开拓者,分外是那些先前是C法度榜样员的人,都邑笃信下面的语句将声明2个Interger类型变量:

Dim x, y As Integer

而实际上,x被声明为了variant类型。因为variant类型变量要比Integer类型慢很多,以是要分外留意这种环境。精确的一行声明措施是:

Dim x As Integer, y As Integer

GoSub在编译法度榜样中速率变慢

编译为本地代码的VB利用法度榜样中,假如应用 GoSubs 敕令,就会比平日的 Subs 或者 Function 调用慢5-6倍;相反,假如是p-code模式,就会相称快。

削减DoEvents语句的数量

不要在代码中放置不需要的DoEvents语句,尤其是在光阴要求高的轮回中。遵照这个原则,至少能在轮回中的每N次反复时才履行DoEvents语句,从而增强效率。比如应用下面的语句:

If (loopNdx Mod 10) = 0 Then DoEvents

假如只是应用DoEvents来樊篱鼠标以及键盘操作,那么就可以在事故行列步队中存在待处置惩罚项目时调用它。经由过程API函数GetInputState来反省这个前提的发生:

Declare Function GetInputState Lib "user32" Alias "GetInputState" () As Long

’ ...

If GetInputState() Then DoEvents

为常量定义相宜的类型

VB在内部应用最简单、最可能的数据类型保存符号数值,这意味着最平日的数字类型-比如0或者1-都按照Integer类型存储。假如在浮点表达式中应用这些常量,可以经由过程常量的相宜类型来加速法度榜样运行,就象下面的代码:

value# = value# + 1#.

这个语句逼迫编译器按照Double款式存储常量,这样就省失了运行时的隐含转换事情。还有别的的一种处置惩罚措施便是:在常量声明时就进行响应类型的定义,代码如下:

Const ONE As Double = 1

And、Or和Xor:让我们来优化表达式

要检测一个整数值的最高有效位是否稀有值,平日要应用如下的代码(有二种环境:第一组If判断注解对Integer类型,第二组对Long类型):

If intValue And &H8000 Then

’ most significant bit is set

End If

If lngValue And &H80000000 Then

’ most significant bit is set

End If

但因为所有的VB变量都是有符号的,是以,最高有效位也是符号位,不管处置惩罚什么类型的数值,经由过程下面的代码就可以实现检测目的:

If anyValue = 0 And y >=0) Then ...

’ the optimized approach

If (x Xor y) >= 0 Then

2、判断X、Y和Z是否都为正数

If x >= 0 And y >= 0 And z >= 0 Then ...

’ the optimized approach

If (x Or y Or z) >= 0 Then ...

3、判断X、Y和Z是否都为负数

If x0 And y0) And y Then ...

您可能还会对下面的文章感兴趣: