从Visual Basic 6.0到Visual Basic.NET的转换二

Visual Basic 6.0

 

逻辑和位的 And、Or、Xor 和 Not 运算符的优先级高于比较运算符。

 

Visual Basic.NET

 

And、Or、Xor 和 Not 运算符的优先级低于比较运算符，因此 a > b And a < c 将被认为是 (a > b) And (a < c)。新的 BitAnd、BitOr 和 BitXor 运算符的优先级高于比较运算符，因此 a BitAnd &HFFFF <> 0 将被认为是 ((a BitAnd &HFFFF) <> 0)。

 

由于 BitAnd、BitOr 和 BitNot 运算符可以返回数值结果，因此其优先级高于关系运算符，这样，就允许这三个运算符返回的结果与其他值进行比较。

 

升级向导

 

由升级向导处理。有关该主题的全面说明，请参阅白皮书《准备将 Visual Basic 6.0 应用程序升级到 Visual Basic.NET》（英文）。

 

调用过程

 

Visual Basic 6.0

 

支持两种类型的过程调用：一种使用 Call 语句，要求使用括号括住参数列表；另一种不使用 Call 语句，不能使用括号来括住参数列表。

 

在 Visual Basic 6.0 中的一种常见情况是，开发者调用的过程不使用关键字，而又在参数列表外使用括号。幸运的是，当有一个以上的参数时，编译器会将其作为语法错误检测出来。但是，当仅有一个参数时，单一参数外的括号会将参数变量传递为 ByVal 而不是 ByRef。这会导致难以找到的小错误。

 

Visual Basic.NET

 

在所有情况下参数列表均需要使用括号。

 

升级向导

 

为没有使用括号的过程调用插入括号。

 

静态过程

 

Visual Basic 6.0

 

通过 Static 关键字可以声明过程，此关键字表明在调用之间保留过程的局部变量。

 

Visual Basic.NET

 

在过程中不支持 Static 关键字，并且所有的静态局部变量均需通过 Static 语句显式声明。 需要将过程中的所有变量均声明为静态的情况很少。删除此功能简化了语言，并且提高了可读性，因为局部变量总是位于堆栈中，除非已显式声明为 Static。

 

升级向导

 

如果过程标记为 Static，则所有的局部变量均变为 Static。

 

参数的 ByVal/ByRef 默认值

 

Visual Basic 6.0

 

参数未指定其默认值为 ByVal 或 ByRef 时，其默认值为 ByRef。

 

Visual Basic.NET

 

<参数未指定其默认值为 ByVal 或 ByRef 时，其默认值为 ByVal。

 

将参数默认值指定为 ByVal 而不指定为 ByRef，可以避免过程错误地修改由调用方传递的变量。这也使得默认的调用规则与赋值一致，以便参数有效地绑定至表达式（通过表达式赋值为正式参数）。 请用户注意避免由 Visual Basic 6.0 升级到 Visual Basic.NET 带来的混乱。如果用户输入的参数声明未显式指定其默认值为 ByVal 或 ByRef，IDE 将为其自动添加 ByVal 关键字。

 

升级向导

 

为没有指定 ByVal 或 ByRef 为默认值的参数添加 ByRef。

 

IsMissing 参数和可选参数

 

Visual Basic 6.0

 

没有默认值的可选 Variant 参数将被初始化为特殊的错误代码，此错误代码可以由 IsMissing 函数检测出来。

 

Visual Basic.NET

 

在 Visual Basic.NET 中要求所有的可选参数均指定默认值。这样可以减少语言中特殊值的数量，从而简化语言。

 

升级向导

 

IsMissing 函数由 IsNothing 函数代替，并且标记有升级警告注释。

 

ParamArray 参数

 

Visual Basic 6.0

 

当变量传递给 ParamArray 参数时，可以通过被调用的函数修改。不支持 ByVal ParamArray 元素。

 

Visual Basic.NET

 

当变量传递给 ParamArray 参数时，不能通过被调用的函数修改。不支持 ByRef ParamArray 元素。

 

ParamArray 参数最常见的情况是不修改传递给此参数的变量。不支持 ByRef ParamArray 参数简化了 ParamArray 调用规则，因为 ParamArray 参数将被指定为正常数组。这样，ParamArray 参数可以扩展到任何元素类型，同时需要 ParamArray 参数的函数均可通过数组（而不是参数列表）直接调用。

 

升级向导

 

过程的 ParamArray 参数标记有升级警告。例如，以下代码：

 

Function MyFunction(ParamArray p() As Variant)

'...

End Function

 

升级后将变为：

 

' UPGRADE_WARNING: ParamArray p was changed from ByRef to ByVal

Function MyFunction(ByVal ParamArray p() As Object)

'...

End Function

 

声明中的 As Any 参数

 

Visual Basic 6.0

 

本地 API 的参数可以声明为 As Any，这样对本地 API 的调用就可以传递任何数据类型。通过这一方法，可以调用参数支持两种或多种数据类型的 API。

 

Visual Basic.NET

 

重载的 Declare 语句可以定义为允许调用带有两种或多种数据类型的本地 API。例如，以下 Declare 语句：

 

Private Declare Function GetPrivateProfileString _

Lib "kernel32" Alias "GetPrivateProfileStringA" ( _

ByVal lpApplicationName As String, _

ByVal lpKeyName As Any, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Long, _

ByVal lpFileName As String) As Long

 

可以由两个 Declare 版本代替，一个接受 Long，一个接受字符串。

 

Overloads Private Declare Function GetPrivateProfileStringKey _

Lib "kernel32" Alias "GetPrivateProfileStringA" ( _

ByVal lpApplicationName As String, _

ByVal lpKeyName As String, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Long, _

ByVal lpFileName As String) As Long

Overloads Private Declare Function GetPrivateProfileStringNullKey _

Lib "kernel32" Alias"GetPrivateProfileStringA" ( _

ByVal lpApplicationName As String, _

ByVal lpKeyName As Long, _

ByVal lpDefault As String, _

ByVal lpReturnedString As String, _

ByVal nSize As Long, _

ByVal lpFileName As String) As Long

 

这提高了类型的安全性，并减少了导致程序失败的小毛病。这一情况的存在是因为编译器不允许通过没有显式定义的数据类型来调用 API。

 

升级向导

 

使用 As Any 参数的 Declare 语句标记有升级警告。

 

Implements

Visual Basic 6.0

 

Implements 语句指定在其出现的类模块中实现的接口或类。

 

Visual Basic.NET

 

Visual Basic.NET 中的 Implements 与 Visual Basic 6.0 中的 Implements 有两个本质区别：

 

在 Implements 语句中不能指定类。

 

每一种实现方法均要求在方法声明语句的结束处使用 Implements 子句。该子句指定其实现的接口方法。

 

由于要求每一种实现接口方法的方法均使用 Implements 子句，所以提高了代码的可读性；在阅读使用方法来实现接口方法的的代码时，这一优点显而易见。

 

升级向导

 

如果类 a 实现类 b，则将为类 b 声明接口，且类 a 将变为实现类 b 的接口：

 

Interface _b

Function MyFunction() As String

End Interface

Class a

Implements _b

Function b_MyFunction() As String Implements _b.MyFunction

End Function

End Class

 

属性

 

Visual Basic 6.0

 

在 Visual Basic 6.0 中，特定属性的 Get、Let 和 Set 属性函数可以通过不同级别的访问选项声明。例如，Property Get 函数可以声明为 Public 而 Property Let 可以声明为 Friend。

 

Visual Basic.NET

 

属性的 Get 和 Set 函数必须具有相同级别的访问选项。这样就便于 Visual Basic.NET 与其他 .NET 语言协同操作。

 

升级向导

 

如果访问选项的级别不同，则新属性为 Public。

 

默认属性

 

Visual Basic 6.0

 

任何成员均可标记为类的默认值。

 

Visual Basic.NET

 

只有接受参数的属性可以标记为默认值。对于将成为集合中的索引的带参数属性，这一情况很常见。

 

这使得代码的可读性更强，因为对没有成员的对象变量的引用通常指向对象自身，而不是指向上下文中的对象和其他上下文中的默认属性。例如，语句 Call Display(TextBox1) 可能是将文本框实例传递给 Display 函数，也可能是传递文本框的内容。

 

此外，删除这种二义性避免了使用单独的语句执行引用赋值。赋值 x = y 总是意味着将变量 y 的内容赋值给变量 x，而不是将 y 引用的对象的默认属性赋值给 x 引用的对象的默认属性。

 

升级向导

 

尽可能解析默认属性。无法解析时（延迟绑定对象）将添加错误注释。

 

枚举

 

Visual Basic 6.0

 

枚举常数可以无限定地被引用。

 

Visual Basic.NET

 

如果在文件或项目级别为枚举添加了 Import，则枚举常数可以无限定引用。 这样可以与类、结构和接口保持一致，在类、结构和接口中，可以给成员赋予通用名称，而不必担心与其他成员冲突。例如，Color 枚举和 Fruit 枚举均可以包含名称为 Orange 的常数。在 Visual Basic 6.0 中的规则是，为枚举常数加上前缀使每个常数保持唯一。这使常数名称非常累赘，如 MsColorOrange 和 MsFruitOrange。

 

升级向导

 

对枚举的引用将变为完全限定。

 

While

Visual Basic 6.0

 

While 语句以 WEnd 语句结束。