Como: Criar classes derivadas

Artigo
08/25/2010

The Inherits demonstrativo faz com que uma classe herdar todos os não-particular membros da classe especificada.

Herdar de outra classe

Adicionar um Inherits demonstrativo com o nome de uma classe que você deseja usar sistema autônomo uma classe base sistema autônomo a primeira demonstrativo em sua classe derivada. The Inherits demonstrativo deve ser a primeira demonstrativo sem comentário após a demonstrativo de classe.

Exemplo

O exemplo a seguir define duas classes.A primeira classe é uma classe base que tem dois métodos.A classe do segundo herda os dois métodos da classe base, substitui o método segundo e define um campo denominado Field.

Class Class1
    Sub Method1()
        MsgBox("This is a method in the base class.")
    End Sub
    Overridable Sub Method2()
        MsgBox("This is another method in the base class.")
    End Sub
End Class

Class Class2
    Inherits Class1
    Public Field2 As Integer
    Overrides Sub Method2()
        MsgBox("This is a method in a derived class.")
    End Sub
End Class

Protected Sub TestInheritance()
    Dim C1 As New Class1
    Dim C2 As New Class2
    C1.Method1() ' Calls a method in the base class.
    C1.Method2() ' Calls another method from the base class.
    C2.Method1() ' Calls an inherited method from the base class.
    C2.Method2() ' Calls a method from the derived class.
End Sub

Quando você executa o procedimento TestInheritance, você vê as seguintes mensagens:

This is a method in the base class.

This is another method in the base class.

This is a method in the base class.

This is a method in a derived class.