B“超频”秘籍之隐藏的Variant变量.docVIP

VB“超频”秘籍之隐藏的Variant变量 火眼识破隐藏的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 H座机电话号码 Then ’ most significant bit is set End If 但由于所有的VB变量都是有符号的，因此，最高有效位也是符号位，不管处理什么类型的数值，通过下面的代码就可以实现检测目的： If anyValue 0 Then ’ most significant bit is set End If 另外，要检测2个或者更多个数值的符号，只需要通过一个Bit位与符号位的简单表达式就可以完成。下面是应用这个技术的几段具体代码： 1、判断X和Y是否为同符号数值： If x 0 And y 0 Or x 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 x 0 And y 0 And z 0 Then ... ’ the optimized approach If x And y And z 0 Then ... 4、判断X、Y和Z是否都为0 If x 0 And y 0 And z 0 Then ... ’ the optimized approach If x Or y Or z 0 Then ... 5、判断X、Y和Z是否都不为0 If x 0 And y 0 And z 0 Then ... ’ the optimized approach If x Or y Or z 0 Th