分享
 
 
 

从VisualBasic6.0到VisualBasic.NET的转换二

王朝vb·作者佚名  2008-05-19
窄屏简体版  字體: |||超大  

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 语句结束。

Visual Basic.NET

为了与其他块结构保持一致,While 的结束语句变为 End While。这提高了语言的一致性和可读性。

升级向导

将 WEnd 语句变为 End While。

On...GoTo 和 On...GoSub

Visual Basic 6.0

根据表达式的值,On expression GoTo destinationlist 和 On expression GoSub destinationlist 语句使程序转向目标列表中的若干个指定行之一。

Visual Basic.NET

On...GoTo 和 On...GoSub 是非结构化的编程构造。它们的使用让程序更加难以阅读和理解。Select Case 可以提供一种更加结构化和灵活的方法来执行多个分支。

注意:仍然支持 On Error GoTo。

升级向导

以下示例:

On MyVariable GoTo 100,200,300

将标记有升级错误:

' UPGRADE_ISSUE On MyVariable GoTo was not upgraded

On MyVariable GoTo 100,200,300

您应当重写代码以避免使用这样的语句,例如:

On x Goto 100,200,300

可以重写为:

Select Case x

Case 1: '插入第 100 行的代码

Case 2: '插入第 200 行的代码

Case 3: '插入第 300 行的代码

End Select

GoSub...Return

Visual Basic 6.0

GoSub line...Return 语句在过程中分支到子例程,然后从子例程返回。

Visual Basic.NET

GoSub...Return 是非结构化编程构造。它的使用让程序更加难以阅读和理解。一个更加结构化的替代方案是:创建可以调用的独立过程。

升级向导

与 On...GoTo 相同,这些语句均标记有升级错误。

LSet

Visual Basic 6.0

LSet 用空格填充字符串使其为指定长度,或者将用户定义类型的变量复制到另一个用户定义类型的变量。

Visual Basic.NET

不支持 LSet 语句。LSet 对类型而言很不安全,因此会在运行时导致错误。此外,由于它对类型而言不安全,因此执行时代码必须完全可靠。删除 LSet 语句后无法将一个结构复制到另一个结构;但是,可以修改 Visual Basic.NET 代码,使用 RtlCopyMemory 来获得相同的效果。

升级向导

语句:

LSet a1 = a2

将标记有升级错误

' UPGRADE_ISSUE: LSet cannot assign a UDT from one type to another

LSet a1 = a2

VarPtr、StrPtr 和 ObjPtr

Visual Basic 6.0

VarPtr、StrPtr 和 ObjPtr 以整数形式返回变量的地址,然后将此地址传递到使用地址的 API 函数(例如 RtlCopyMemory)。VarPtr 返回变量的地址,StrPtr 返回字符串的地址,ObjPtr 返回对象的地址。这些函数均未记录在文档中。

Visual Basic.NET

可以检索数据项的地址,但是检索必须通过调用 CLR 才能进行。这是因为 CLR 通常可以在内存中自由移动项目,因此需要让 CLR 知道何时在使用地址,不能移动项目。以下示例检索对象的地址:

Dim MyGCHandle As GCHandle = GCHandle.Alloc(o,GCHandleType.Pinned)

Dim Address As Integer = CInt(MyGCHandle.AddrOfPinnedObject())

'...

MyGCHandle.Free() '再次允许移动对象实例

允许运行时移动数据项目能够改善运行时的性能。

升级向导

这些语句不会自动升级,因此将标记有“(statement) is not supported”[(语句)不被支持] 的升级错误。例如,以下代码:

a = VarPtr(b)

升级后将变为:

' UPGRADE_ISSUE: Function VarPtr() is not supported

a = VarPtr(b)

这也会导致编译错误。

文件 I/O

Visual Basic 6.0

语言中包括文件 I/O 语句。

Visual Basic.NET

通过类库使用文件 I/O 操作。从语言中删除文件 I/O 语句以便在 Visual Basic.NET 中使用不同的 I/O 库。如果语言中存在文件 I/O 语句,将会使代码更加累赘,标识符 Open、Close、Print 和 Write 将成为保留字。

升级向导

文件 I/O 语句将升级为相应的函数。例如,以下代码:

Open nput )

Debug.Print

Visual Basic 6.0

Debug.Print 将一行文字输出到“立即”窗口。

Visual Basic.NET

Debug.WriteLine 将一行文字输出到“输出”窗口。还可以使用 Debug.Write 方法将文字输出到“输出”窗口,并且没有换行符。

升级向导

Debug.Print 升级为 Debug.WriteLine。

资源文件

Visual Basic 6.0

Visual Basic 6.0 支持每个工程使用一个 .res 文件。

Visual Basic.NET

Visual Basic.NET 支持多种资源文件。可以绑定窗体以自动从新的 .resX 格式资源文件中检索资源。任何 CLR 类均可存储在 .resX 文件中。

升级向导

文件由 .res 升级为 .resX,并且代码被修改以便从 .resX 文件中加载。

Windows 应用程序

Visual Basic 窗体

Visual Basic 6.0

Visual Basic 6.0 具有自己的窗体包,用于创建图形 Windows 应用程序。

Visual Basic.NET

对于 Visual Basic.NET,Windows 窗体是一种新的窗体包。由于 Windows 窗体是以公共语言运行时 (CLR) 为目标构造的,因此 Windows 窗体可以充分利用 CLR 的全部功能。特别是,由于 Windows 窗体包具有部署、应用程序分离、版本和代码访问安全特性方面的优势,您现在可以构造基于 Windows 的客户端应用程序,其部署和更新明显更加简易。您甚至可以构造与 HTML 具有相同浏览器部署方案的 Windows 窗体应用程序。正如代码访问安全性的粒度控制一样,这些特性也使得在浏览器中使用 Windows 窗体控件非常令人瞩目。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有