日期:2012-07-10  浏览次数:20447 次

    我们在很多的编程论坛或者新闻组中可以看到C++的拥护者将VB称为一个玩具语言(Toy Language)。其中VB最被人诟病的是它不真正支持面向对象编程(oop)。
    在新的Visual Basic中,这些都将成为过去。Visual Basic.NET将真正支持oop。继承(inheritance)、多态(polymorphism)以及重载(overloading)。当然还不止这些。包括一些新的数据结构、结构性的错误控制(Error Handing)以及线程。这些都将被新的VB所支持。

继承
    假设你编写了一个只包含一个函数的名称为BaseClass的基本
类:
    
    Function GetCustomerName()
    ' Do some stuff
    End Function

    如果你想建立一个新类,并使用BaseClass中的GetCustomerName
函数。但有不想重写一编代码。那么通过继承,你可以这样编写新类:

    Inherits BaseClass

    Function GetCustomerID()
    ' Do some stuff
    End Function

重载
    重载就是建立两个具有同样你名称但是参数属性不同的函数的过
程。假设有GetCustomID函数根据输入输出用户的ID号码。那么该函数可能有以下两种类型:

Function GetCustomerID(custname as string) As Integer
' 通过用户名获得用户ID
End Function

Function GetCustomerID(purch as long) As Integer
' 根据购物单号码获得用户ID
End Function

通过重载,你就可以根据不同类型的输入调用同一个函数。
实际上现在的VB在某种程度上提供了重载的功能,考虑下面的函数:

Function GetCustomID(vIN As Variant) As Long
    GetCustomID = vIN
End Function

你可以以下面两种方式调用

ID = GetCustomID("123")
或者
ID = GetCustomID(123)

    那么为什么还要在新版本中引进重载呢?这是因为新的Visual
Basic引进了新的特性:类型安全(default type safety)。在Visual Basic.NET中,Variant类型将不复存在,详细的介绍看下面关于升级部分的内容。

多态
    多态是在一个类中重新定义一个函数的过程。例如你需要建立一
个基于BaseClass类的子类,但是又需要重新编写GetCustomerName函数,在新版的VB中,你就可以这样写:

Inherits BaseClass

Function GetOrders()
Overrides Function GetOrders()
...
End Function

线程
    新的Visual Basic语言结构部分将包含建立多线程,一个线程建
立的范例如下:

set t = New Thread(New Threadstart
                  (AddressOf(BaseClass.Function1))

    从上面的范例还可以看到,Visual Basic.NET中的AddressOf函
数将真正返回函数的指针。这在进行API调用,例如回调函数方面将是很有帮助的。

错误处理(Error Handling)
    Visual Basic.NET的另外一个大的改进就是错误处理。Visual
Basic将提供try…catch…finally结构,就象Delphi中的那样(微软的原文是:just like those "respectable" languages :-))。例如:

Sub SafeWrite()
Try
  Open "Testfile"
  ...
  Write #1
Catch
   Kill "Testfile"
Finally
   Close #1
End Try
End Sub


升级
    当代码升级后,Visual Basic.NET会建立一个新的升级工程。下
面通过几个例子来说明你的代码做了那些升级

Variant类型到Object类型
    以前版本的Visual Basic支持Variant数据类型,该类型可以设
定为除了固定程度字符串外的任何原始数据类型和Empty,Error,Nothing和Null。在Visual Basic.NET中,Object
数据类型可以设定为任何原始数据类型和Empty,
Error,Nothing,Null和对象指针。当你的工程升级到Visual
Basic.NET后,任何Variant定义都会改变为Object。
同样,当你在编辑器中插入代码时,Variant关键字也会被替换为
Object。

Integer数据类型到Short数据类型
    在Visual Basic 6.0中,16bit数现在称为Short。32bit数称为
Integer(64bit数称为Long)。当工程升级后,数据定义会做如下改动:

Dim x As Integer
dim y as Long
更改为:

Dim x As Short
dim y as Integer

属性语法
    Visual Basic.NET对于自定义属性的语法作乐更加直观的更改,
将Get和Set合而为一。例如原来的属性如下:

Property Get MyProperty() As Integer
    m_MyProperty = MyProperty
End Property
Property Let MyProperty(NewValue As Integer)
    m_MyProperty = NewValue
End Property

升级后更改为:

Property MyProperty() As Short
    Get
        m_MyProperty = MyProperty
    End Get
    Set
 &