VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > temp > VB.net教程 >
  • vb.Net编程简介之二

内容:
对Boolean类型数据使用AND/OR/NOT操作
    And和Or关键字在Visual Basic.NET和Visual Basic 6.0中的使
用是不同的,在Visual Basic 6.0中,AND运算
既执行逻辑AND操作也执行逐位AND操作,取决于操作数(如果是
Boolean类型,执行逻辑AND操作,如果是数字,执
行逐位AND操作)。在Visual Basic.NET中,AND运算只执行逻辑AND操
作。对于逐位操作,在Visual Basic.NET提供
了一组操作:BitAnd, BitOr, BitNot以及BitXor 。

下面是演示这些差异的范例程序

Dim a As Integer
Dim b As Integer
Dim c As Boolean
a = 1
b = 2
c = a And b
MsgBox ("The answer is " & c)

    当上面的代码在Visual Basic 6.0下运行时,结果是False(执行
逐位AND操作);然而在Visual Basic.NET下,
结果是True(执行逻辑AND操作)。
    要确定你的程序在升级后也运行结果同升级前一样,Visual 
Basic.NET包含了兼容函数VB6.And, VB6.Or以及
VB6.Not,这些函数执行的结果同Visual Basic 6.0下的AND/OR/NOT
操作的执行结果是一样的。当代码升级后,结
果会象下面这样:

Dim a As Short
Dim b As Short
Dim c As Boolean
a = 1
b = 2
c = VB6.And(a, b)
MsgBox ("The answer is " & c)

升级后的代码会得出False的结果,同Visual Basic 6.0下运行一样

    如果不想你的代码升级后使用兼容函数,就需要确保你的
AND/OR/NOT都使用在Boolean类型数据的操作中,例
如,如果上面的代码更改为下面的方式:

Dim a As Integer
Dim b As Integer
Dim c As Boolean
a = 1
b = 2
c = a <> 0 And b <> 0
MsgBox ("The answer is " & c)

当升级后,代码同原来的几乎一样:

Dim a As Short
Dim b As Short
Dim c As Boolean
a = 1
b = 2
c = a <> 0 And b <> 0
MsgBox ("The answer is " & c)

    同前面不同的是每一个操作都是在Boolean数据之间进行的,因
此它们在Visual Basic 6.0中使用的都是逻辑
AND操作。所以在升级到Visual Basic.NET后不会发生改变。这样做
的意义是你可以直接在Visual Basic.NET和
Visual Basic 6.0之间拷贝和粘贴代码,你的代码会运行的更快因为
使用的是本地的AND操作而不是兼容函数。

    另外一个需要考虑的问题是对于函数结果的AND/OR/NOT 操作的
问题,例如下面的范例:

Dim b As Boolean
b = Function1() And Function2()

    在Visual Basic 6.0中,Function1和Function2的结果都会执行
后再将结果进行AND操作。在Visual Basic.NET
中,只有当Function1的结果为True时才会计算Function2。因为
Visual Basic.NET中的AND运算执行的是逻辑AND操
作,如果Function1结果为False,AND结果肯定是False,为了加快速
度就不再执行Function2的了。但是如果
Function2另有目的,例如用于避免某些错误,那么就会出现不可预
知的错误,那么上面的代码升级后就会象下面
的样子:

Dim b As Boolean
b = VB6.AND(Function1(), Function2())

为了不在升级代码中出现兼容函数,原来的代码需要做如下的改动:

Dim b As Boolean
Dim c As Boolean
Dim d As Boolean
c = Function1()
d = Function2()
b = c And d

    另一个需要注意的是在Visual Basic.NET中,True值将不再是-1
而是1。做这个改变是为了使Visual Basic.NET
能集成在 .NET语言中。因为有这个改变,你需要再你的Visual 
Basic 6.0工程中使用常量True而不是-1来表示真
值,使用Boolean类型而不是整数类型变量保存Boolean数据。下面的
代码说明了Visual Basic 6.0和Visual Basic.NET
之间的不同:

Dim i As Integer
i = True
If i = -1 Then
    MsgBox ("True")
Else
    MsgBox ("False")
End If
在Visual Basic 6.0中,结果为True,而在Visual Basic.NET中结果
为False。

如果对代码做如下改动,程序在两种语言下运行都会显示True

Dim i As Boolean
i = True
If i = True Then
    MsgBox ("True")
Else
    MsgBox ("False")
End If

通过上面的范例可以看出在程序中需要注意两点:
1、使用常量True和False来判断是否而不要使用0和-1
2、使用Boolean类型变量储存Boolean数值而不要使用Integer类型变

如果在你的程序中没有这么做的话,在升级后你还需要做大量的手工
改动


相关教程