2024年4月25日发(作者：)

维普资讯

３４・　

．

Ｃｏｍｐｕｔｅｒ　Ｅｒａ　Ｎｏ．８　２００２　

Ｖｉｓｕａｌ　Ｂａｓｉｃ　６．０与Ｖｉｓｕａｌ　Ｂａｓｉｃ．Ｎ　ＥＴ的不兼容处理　

万春’。刘丽莉　

（１．集美大学网络中心；２．集美大学计算机与通信工程系，福建厦门３６１０２１）　

摘　要：本文介绍了ＶＢ６、０和ＶＢ、ＮＥＴ多方面的不兼容，给出了如何将ＶＢ６源代码转变为ＶＢ．ＥＴ平台下可运行程序　Ｎ

的几个常用技巧。　

关键词：ＶＢ，ＥＴ；Ｃ；不兼容　Ｎ

ＶＢ，ＥＴ是基于，ＮＥＴ框架的ＶＢ６的换代产品，ＮＶＢ．ＮＥＴ继　

’ｍｙｆｉｘｅｄ被设置为固定长度的字符串　

承了ＶＢ的易用性，可以用可视化的方法快速开发Ｗｅｂ应用程　

序、ＸＮＩＬ　Ｗｅｂ服务、Ｗｉｎｄｏｗｓ应用程序以及其它服务器端构　

件，是绝大多数程序员首选的程序设计语言。但ＶＢ，ＥＴ省略了　Ｎ

许多ＶＢ６使用的语法，这就意味着用ＶＢ６的源程序并不能直　

２有关窗体加载　

在ＶＢ６中，如果想加载已经创建与工程中的某个窗体，则　

用如下语句：　

ｆｒｍＣｕｓｔｏｍｅｒ．Ｓｈｏｗ　

接在ＶＢ．ＥＴ运行。因此，Ｎ将ＶＢ６工程迁移到ＶＢ．ＥＴ就必须　Ｎ

重写代码。虽然ＶＢ，ＥＴ提供了一个迁移工具，Ｎ但有些特殊隋况　

必须要求手工重写代码。下述是代码迁移过程中的一些技巧。　

另外一种ＶＢ６的情况如下：　

ｄｉｍ　ｆｒｍＮｅｗＣｕｓｔｏｍｅｔ　Ａｓ　Ｆｏｒｍ　

ｓｅｔ　ｆｒｍＮｅｗＣｕｓｔｏｍｅｒ　Ａｓ　Ｎｅｗ　ｆｒｍＣｕｓｔｏｍｅｒ　

ｆｒｍＮｅｗＣｕｓｔｏｍｅｒ．Ｓｈｏｗ　

１固定长度的字符串的声明　

固定长度的字符串不是ＶＢ．ＮＥＴ的基本类型，但ＶＢ．ＥＴ　Ｎ

系统编译器内部支持。因此，对在ＶＢ６中声明的此种类型的变　

量需要改变声明方式。如：　

在ＶＢ６声明如下：Ｄｉｍ　ｍｙｎｘｅｄｃｈａｒ　Ａｓ　Ｓｔｒｉｎｇ　８　

在ＶＢ．ＮＥＴ中，后一种情况能够很好地工作，但前一种情况　

会出错。原因是ＶＢ．ＮＥＴ的Ｆｏｒｍ实际上是ＷｉｎＦｏｒｍｓ类的派生　

类。　

３有关类实例的创建　

有两种方法声明一个对象。第一种方式如下：　

Ｄｉｍ　ｏｂｊＳｏｍｅＯｂｊｅｃｔ　Ａｓ　ＭｙＣｌａｓｓ　

Ｓｅｔ　ｏｂｊＳｏｍｅＯ　ｂｊｅｃｌ＝Ｎｅｗ　ＭｙＣｌａｓｓ　

ＶＢ　ＥＴ要改为：ＮＤｉｍ　ｍｙｆｉｘｅｄｃｈａｒ　Ａｓ　ＶＢ６，ＦｉｘｅｄＬｅｎｇｔｈ－　

Ｓｔｒｉｎｇ（８）　

但这种改变存在一个大问题：如果要转变的是ＶＢ６的用户　

自定义类型（ＵＤＴ），在ＶＢ．ＥＴ只能采用结构类型（ＳｔＮｒｕｃ—　

ｔｕｒｅ）。如果ＶＢ６的用户自定义类型中包含固定长度的字符串，　

由于ＶＢ．ＥＴ只能包含则这种转换基本类型，Ｎ于是ＵＤＴ就无法　

完全转换为Ｓｔｒｕｃｍｒｅ类型。如下例：　

这种方法最常用，第二条语句一执行，则类ＭｙＣｌａｓｓ的实例　

ｏｂｊＳｏｍｅＯｂｊｅｃｔ即被创建。这第一种方法在ＶＢ，ＥＴ仍然可以　Ｎ

使用，不过第二条语句的“Ｓｅｔ”要去掉。　

ＶＢ６的第二种方法如下：　

Ｄｉｍ　ｏｂｊＳｏｍｅＯｂｊｅｃｌ　Ａｓ　Ｎｅｗ　ＭｙＣｌａｓｓ　

ＶＢ６有如下用户自定义类型：　

Ｔｙｐｅ　ｏｎｅｒｅｃｏｒｄ　

ＩＤ　Ａｓ　Ｉｎｔｅｇｅｒ　

ｏｂｊＳｏｍｅＯｂｊｅｃ１．ＳｏｍｅＰｒｏｐｅｒｔｙ＝”Ａ　ｓｔｄｎｇ　ｖａｌｕｅ”　

。给该对象的某个属性赋值　

。固定长度的字符串　ｍｙｆｉｘｅｄ　Ａｓ　Ｓｔｒｉｎｇ　３０

Ｓ协ｔｕｓ　Ａｓ　Ｂｏｏｌｅａｎ　

Ｅｎｄ　ｍｙｐｅ　

对ＶＢ６，在这种情况下，第一条语句并没有创建类实例，只　

有当该对象的某个属性第一次被引用时，该类实例才被立即创　

建。但在Ⅷ．ＮＥＴ情况就不同了，当第一条语句一执行，该类实　

ＶＢ．ＥＴ中只能转换为：Ｎ　

Ｓｔｒｕｃｔｕｒｅ　ｏｎｅｒｅｃｏｒｄ　

Ｐｕｂｌｉｃ　ＩＤ　Ａｓ　Ｉｎｔｅｇｅｒ　

例即被创建。对这种变化，ＶＢ６源代码迁移到ＶＢ．ＥＴ时好像也　Ｎ

没什么影响，因为第二条语句无非表示第一次引用该对象的某　

个属性。但如果在ＶＢ６的程序中第一条语句之后有其它语句，　

而这些语句假设类的实例还未创建的前提下实现某些功能，则　

这种迁移肯定会有问题。　

Ｐｕｂｌｉｃ　ｍｙｆｌｘｅｄ　Ａｓ　Ｓｔｒｉｎｇ。非固定长度的字符串　

Ｐｕｂｌｉｃ　Ｓｔａｔｕｓ　Ａｓ　Ｂｏｏｌｅａｎ　

Ｅｎｄ　Ｓｔｒｕｃｔｕｒｅ　

如果在结构类型中必须要求ｍｙｆｉｘ￣ｌ变量是固定长度的，　

那就必须手工重写代码。如下：　

Ｄｉｍ　ｍｙｒｅｃｏｒｄ　Ａｓ　ｏｎｅｒｅｃｏｒｄ　

４有关条件判断　

注意如下语句：　

Ｉｆ　ａ＞ｂ　Ａｎｄ　Ｃ　Ｔｈｅｎ…　

ｍｙｍｃｏ￣．ｍｙｉｆｘｅｄ＝ＳｐａｃｅＳ（２０１　

ｍｙＲｅｃｏｒｄ．ｍｙｆｉｘｅｄ＝”Ｓｏｍｅ　ｄｅｓｃｒｉｐｔｉｏｎ”　

这个语句在ＶＢ６和ＶＢ．ＥＴ的执行有微小的差别，在ＶＢ６　Ｎ

不管“ａ＞ｂ”为真或假，Ｃ都要执行。但是ＶＢ．ＥＴ处理这一问题　Ｎ

的方式是：如果“ａ＞ｂ”为假，则Ｃ就（－ｒ转弟４２页）　

ｍｙＲｅｃｏｒｄ．ｍｙｆｉｘｅｄ．ＰａｄＲｉｇｈｔ（２０１　

维普资讯

４２．　Ｃｏｍｐｕｔｅｒ　Ｅｒａ　Ｎｏ．８　２００２　

．

●路由器：ＣＩＳＣＯ２５０１　

３）网站信息员，其职责是负责Ｗｅｂ页面的设计更新，将公　

●防火墙：ＣＩＳＣＯ　ＰＩＸ　ｔ５２０　

司各对外发布信息及时上网，负责处理Ｗｅｂｍａｓｔｅｒ邮件，机房日　

●交换机：ＣＩＳＣＯ　ＣＡＴＡＬＹＳＴ　３５２４　

常管理值班等。　

●中心交换机：ＣＩＳＣＯ　ＣＡＴＡＬＹＳＴ　６５０９　

５门户网站应用状况　

●信息服务器：ｍＭ　Ｎｅｔｉｆｎｉｔｙ　５０００　

公司门户网站的建设主要是为公司的生产经营服务，不是　

●代理服务器：ｍＭ　ＲＳ６００　４４Ｐ　Ｍｏｄｅｌ　１７０　

以赢利为目的，不能产生直接经济效益，因此系统的运行费用由　

●数据服务器：ｍＭ　ＲＳ６００　Ｈ８０　

公司按计划拨给设备维护费和通讯使用费。　

４）系统软件　

目前公司建设了１０００ＭＢ光纤主干网，公司３０多个二级单　

●信息服务器操作系统：Ｗｉｎｄｏｗｓ　２０００　Ｓｅｒｖｅｒ　

位都可通过公司网站的代理服务器使用互联网，可以收发电子　

●代理服务器操作系统：ＡＩＸ　Ｖｅｒｓｉｏｎ　４．３　

邮件，电子邮件的命名可利用公司的域名（ＸＸＸＸ　ｕｈｕａ．ｃｏｒｎ．　

●管理服务软件：Ｎｅｔｓｃａｐｅ　Ｐｒｏｘｙ　Ｓｅｒｖｅｒ　３．５　

ｃｎ），充分地利用公司的域名资源宣传企业。目前注册用户５００　

●Ｅ－ｍａｉｌ管理系统：Ｌｏｔｕｓ　Ｄｏｍｉｎｏ　５．０４　ＦＯＲ　ＡＩＸ　

多个，已满足了公司公务上网的需求。　

●数据服务器操作系统：ＡＩＸ　Ｖｅｒｓｉｏｎ　４．３　

正在规划和开发中的公司电子商务平台也充分利用公司的　

●数据库管理系统：Ｏｒａｃｌｅ　８ｉ　ｆｏｒ　ＡＩＸ　

门户网站。在公司的网站发布招标信息、商务信息、对外合作技　

４网站运行及维护　

术开发和难题征解等，例如公司生产的颗粒石灰氮产品信息在　

企业网站建成后，主要任务是站点安全管理、日志管理、信　

网站上发布后，引来了日本、台湾、韩国等客户，取得了良好的经　

息维护、技术服务、用户管理、信息管理和信息录入。主要在以下　

济效益，集团技术中心的科研人员上网检索和查询到大量的新　

几个方面做好工作。　

产品新技术开发信息，有力地促进了科研开发。　

１）网站主管，其职责是负责站点的技术管理、安全管理，负　随着公司信息化建设的发展，利用企业的门户网站建立电　

责公司域名的管理，公司网站主管是由计算机中心副主任兼任。　

子集市，开展协同商务，可以提高公司的管理水平和企业竞争　

２）网站管理员，其职责是系统维护、日志管理、用户管理及　

力。　园　

技术服务，安排２名技术人员。　

客套客套客　客　客套客套客套客　客　客套客套客套客　客　客客客套客套客套　客　客套客套客套客　客客客套客套客　套客套客　客　客套盍客客客　套套　

（上接第３４页）　不再执行。这里，　代表返回逻辑值的表达　

Ｍｅ．ＷｉｎｄｏｗＳｔａｔｅ＝ｖｂＮｏｒｍａｌ　

式或函数。这种处理方式类似Ｃ语言的处理方式（而不是传统　

ＭｓｇＢｏｘ”Ｅｒｒｏｒ￣”．ｖｂＣｄｔｉｃａｌ　

的ＢＡＳＩＣ语言）。事实上，ＶＢ．ＮＥＴ的许多语法与传统的ＢＡＳＩＣ　

ｂＲｅｃｏｒｄＬｏａｄｅｄ＝Ｔｒｕｅ　

语言差别很大，反而与Ｃ语言越来越接近。　

在ＶＢ６中，以上这些代码等价于如下代码：　

在ＶＢ６到ＶＢ．ＥＮＴ源代码迁移时，如果Ｃ是一个函数，最　

Ｍｅ．ＷｉｎｄｏｗＳｔａｔｅ：０　

好是将ｉｆ后的条件分开写。　

ＭｓｇＢｏｘ’’Ｅｒｒｏｒ［”．１　６　

ｂＲｅｃｏｒｄＬｏａｄｅｄ＝一１　

５有关数据库控件的绑定　

当使用ＶＢ．ＥＮＴ的代码迁移工具转换ＶＢ６代码时，该工具　

ＶＢ．ＥＮＴ只支持ＡｃｔｉｖｅＸ　Ｄａｔａ　Ｏｂｊｅｃｔｓ（ＡＤＯ），不再支持　

并不修改任何常量。但是，在ＶＢ．ＥＮＴ中的常量虽然与ＶＢ６中　

Ｄａｔａ　Ａｃｃｅｓｓ　Ｏｂｊｃｅｔｓ（ＤＡＯ）和Ｒｅｍｏｔｅ　Ｄａｔａ　Ｏｂｊｃｅｔｓ（ＲＤＯ）。因　

的名称相同，而值却不一样了。例如：常量ＶＢ６中的Ｔｒｕｅ是一１，　

此，如果ＶＢ６源代码中有ＤＡＯ和ＲＤＯ的有关操作，就要先将　

而在ＶＢ．ＥＮＴ中却是＋１。这样可能与ＶＢ６中程序的原义不一　

ＤＡＯ和ＲＤＯ用ＡＤＯ替换。　

样了。　

６已经作废的传统ＢＡＳＩＣ的一些语句　

８不能用ＤＨＴＭＬ页和Ｗｅｂ类　

ＶＢ是从ＱｕｉｃｋＢＡＳ１Ｃ发展而来，因此有大量的传统ＢＡＳＩＣ　

微软提供的迁移工具不能处理ＤＨＴＭＬ页，在ＶＢ．ＥＮＴ中　

语句一直保持到ＶＢ６，实际上这些语句已经很少有人使用，ＶＢ．　

是用Ｗｅｂ　Ｆｏｒｍ来代替ＤＨＴＭＬ页。转换ＤＨＴＭＬ页需要手工　

ＥＮＴ不再支持这些作废的语句，例如：　Ｇｏｓｕｂ、Ｏｎ　Ｘ　ＧｏＴｏ…　

去处理。由于两者在许多方面差异太大，比较有效的方式是用　

（Ｃｏｍｐｕｔｅｄ　ＧｏＴｏｓ）、Ｌｅｔ（这里指类似：Ｌｅｔ　ｉ＝ｉ＋１）、ＶａｒＰｔｒ、　

ＶＢ．ＥＮＴ的Ｗｅｂ　Ｆｏｒｍ重写，当然可以将原ＤＨＴＭＬ页的程序　

ｏ￣ｊＰｔｒ、ＳｔｒＰｔｒ　ＤｅｆＢｏｏｌ、ＤｅｆＢｙｔｅ　Ｄｅｆｌｎｔ、ＤｅｆＬｎｇ　ＤｅｆＣｕｒ　ＤｅｆＳ—　

逻辑拷贝到新代码中。　

ｎｇ、ＤｅｆＤｂｌ、ＤｅｆＤｅｃ　ＤｅｆＤａｔｅ、ＤｅｆＳｔｒ、ＤｅｆＯｂｊ、ａｎｄ　ＤｅＷａｒ等　

如果在ＶＢ６中使用了以上这些语句，则必需先删除，然后　

９类的继承和相关操作　

才能转换到ＶＢ．ＥＮＴ。　

ＶＢ．ＥＮＴ支持继承和与此相关的所有操作，例如覆盖、构造　

器等等。但ＶＢ６中对面向对象支持的并不好，在ＶＢ６中我们只　

７内置的常量　

能用继承仿真技术，这些技术性能不是很好。因此，如果将ＶＢ６　

在用ＶＢ编程时，如果经常使用一些内置的常量，则是一种　

的源程序转换到ＶＢ．ＥＮＴ，最好能用ＶＢ．ＥＮＴ重新写有关对象　

良好的编程习惯。如下例：　

操作的程序，这样可以获得最佳效果。　圈