Share via


How to: Convert Implements Code to a New Form of Inheritance

Visual Basic 6.0 uses the Implements statement for interface inheritance. Newer versions of Visual Basic offer two types of inheritance, using the Implements Statement and the Inherits Statement. This topic demonstrates how to convert code using these two options.

The following Visual Basic 6.0 code is considered on this page:

' Account class.
Private mvarBalance As Currency
Private mvarOwner As String

Public Property Let Owner(ByVal vData As String)
    mvarOwner = vData
End Property

Public Property Get Owner() As String
    Owner = mvarOwner
End Property

Public Function Deposit(ByVal amount As Currency) As Currency
End Function

' Savings class.
Private mvarBalance As Currency
Private mvarOwner As String 'local copy

Public Property Let Owner(ByVal vData As String)
    mvarOwner = vData
End Property

Public Property Get Owner() As String
    Owner = mvarOwner
End Property

Public Function Deposit(ByVal amount As Currency) As Currency
End Function

To convert using a common interface

  1. Run the Upgrade Wizard.

    Note

    The Upgrade Wizard is a tool used to upgrade a Visual Basic 6.0 application to Visual Basic 2008. It is automatically launched when you open a Visual Basic 6.0 project in Visual Basic 2008. For more information, see How to: Upgrade a Project with the Visual Basic Upgrade Wizard.

    The wizard will convert the Account class to an interface (_Account), and create two classes that implement the interface (Account and Savings.)

    Interface _Account
        Property Owner() AsStringFunction Deposit(ByVal amount AsDecimal) AsDecimalEndInterfaceFriendClass Account
        Implements _Account
        Private mvarBalance AsDecimalPrivate mvarOwner AsStringPublicProperty Owner() AsStringImplements _Account.Owner
            Get
                Owner = mvarOwner
            EndGetSet(ByVal Value AsString)
                mvarOwner = Value
            EndSetEndPropertyPublicFunction Deposit(ByVal amount AsDecimal) _
            AsDecimalImplements _Account.Deposit
        EndFunctionEndClassFriendClass Savings
        Implements _Account
    
        PrivateFunction Account_Deposit(ByVal amount AsDecimal) _
            AsDecimalImplements _Account.Deposit
        EndFunctionPrivateProperty Account_Owner() AsString _
            Implements _Account.Owner
            GetEndGetSet(ByVal Value AsString)
            EndSetEndPropertyPublicFunction AddInterest() AsObjectEndFunctionEndClass
    
  2. The code to create and use an instance of the Savings account could look like this.

    Dim savings As _Account
    savings = New Savings
    savings.Owner = "Jeff Pike"
    

If you want Account to be the base class, you can modify the wizard output.

To convert with Interface and Implements

  1. Run the Upgrade Wizard.

  2. Delete the Account class.

  3. Rename the _Account class to Account.

  4. In the Savings class, replace _Account with Account.

    FriendClass Savings
        Implements Account
    
        PrivateFunction Account_Deposit(ByVal amount AsDecimal) _
            AsDecimalImplements Account.Deposit
        EndFunctionPrivateProperty Account_Owner() AsStringImplements Account.Owner
            GetEndGetSet(ByVal Value AsString)
            EndSetEndPropertyPublicFunction AddInterest() AsObjectEndFunctionEndClass
    
  5. The code to create and use an instance of the Savings account could look like this.

    Dim savings As Account
    savings = New Savings
    savings.Owner = "Jeff Pike"
    

If you want the Account class to be a base class, you can modify the wizard output.

To convert with Class and Inherits

  1. Run the Upgrade Wizard.

  2. Delete the _Account interface.

  3. In the Account class, remove references to the _Account in Implements statements.

    FriendClass Account
        Private mvarBalance AsDecimalPrivate mvarOwner AsStringPublicProperty Owner() AsStringGet
                Owner = mvarOwner
            EndGetSet(ByVal Value AsString)
                mvarOwner = Value
            EndSetEndPropertyPublicFunction Deposit(ByVal amount AsDecimal) AsDecimalEndFunctionEndClass
    
  4. In the Savings class, replace Implements _Account with Inherits Account.

  5. In the Savings class, remove the Owner and Deposit members.

    FriendClass Savings
        Inherits Account
    
        PublicFunction AddInterest() AsObjectEndFunctionEndClass
    
  6. The code to create and use an instance of the Savings account could look like this.

    Dim savings As Account
    savings = New Savings
    savings.Owner = "Jeff Pike"
    

See Also

Tasks

How to: Upgrade a Project with the Visual Basic Upgrade Wizard

Reference

Class Statement (Visual Basic)

Inherits Statement

Interface Statement (Visual Basic)

Implements Statement

Other Resources

Inheritance in Visual Basic

Interfaces in Visual Basic