Apesar do Microsoft Visual Basic proíbe herança múltipla , que não oferecem encapsulamento que, quando utilizado de forma criativa, pode conseguir o mesmo efeito. Herança e encapsulamento são dois fundamentos da programação orientada a objetos , cada um muito mais fácil de entender através do exemplo de definição. Ambas as técnicas são maneiras de derivar e estender uma nova funcionalidade a partir do código existente. Derivar uma nova classe herdando um, então encapsular as segundas classes . Coisas que você precisa
Microsoft Visual Studio ou Visual Basic Express 2010
conhecimento básico de Visual Basic.Net
Show Mais instruções
1
Abra o Visual Studio e criar um novo aplicativo de console do Visual Basic chamado MultiClassDemo . Clique em " Arquivo" e depois "New" e preencha o novo formulário de candidatura.
2
Crie uma nova classe chamada Cliente. Clique em " Project" e depois " New Class" , em seguida, entrar ao Cliente no campo nome. Quando a janela do editor de código aparece, modificar o código da seguinte maneira.
Public Class Cliente
Patrimônio Público Cliente As String = ""
públicas Propriedade CompanyName As String = ""
Patrimônio Público Contato As String = ""
Overridable Public Sub carga (id ByVal As String)
CustomerID = id
CompanyName = " Aluguer Acme "
Contato =" Joe Smith "
End Sub End Class
Esta classe descreve um objeto Customer com propriedades de ID , nome e contato. O método Load atribui valores para as propriedades .
3
Repita os passos acima para criar uma classe de Crédito.
Classe Crédito Público
Public Property CustomerID As String = ""
Public Property CreditScore As String = ""
Public Property ReportDate como data = Date.MinValue
Public Sub carga ( ByVal ID As String )
CustomerID = id
CreditScore = " A + "
ReportDate = # 6/1/2011 #
End Sub
End Class
a classe de crédito tem ID , pontuação de crédito e propriedades de data relatório, bem como o seu próprio método de carga .
4
Crie uma terceira classe chamada CustomerCredit e adicione a declaração herdado da seguinte forma.
Public Class CustomerCredit
herda Cliente
Quando a classe CustomerCredit é construído pelo compilador , ele herda as propriedades CustomerID , CompanyName e contato, bem como o método de carga do classe Customer .
5
Criar um novo campo privado chamado pontuação para encapsular uma instância da classe de crédito .
pontuação privada as New Credit
6
expor as propriedades da classe de crédito que utilizam propriedades derivadas .
Public Property CreditScore as String
Obter
Voltar score.CreditScore
End Get
Set ( ByVal valor As String)
score.CreditScore = valor
End Set Fotografia
End Property
Public Property ReportDate As Date
Get
Voltar score.ReportDate
End Get
Set ( ByVal valor As Date )
score.ReportDate = valor
Definir Fim
End Property
Apesar de não ser tão conveniente como herança múltipla , este expõe as propriedades de crédito .
7
Substituir método de carga do cliente para carregar tanto as propriedades de crédito do cliente e .
Public Overrides Sub carga (id ByVal as String)
MyBase.Load (id)
score.Load (id)
End Sub End Class
8
Adicione código para a função principal no Módulo1 para testar a nova classe derivada. Clique em "Windows " e clique em " Module1.vb " . Atualize o código com a seguinte redacção :
Module Module1
Sub Main () Dim
cust As New CustomerCredit
cust.Load ( "1234" )
Console.WriteLine ("Cliente =" & cust.CustomerID )
Console.WriteLine (" Empresa: " & cust.CompanyName )
Console.WriteLine (" Contato: "& cust.Contact )
Console.WriteLine (" Credit Score : "& cust.CreditScore )
Console.WriteLine (" A data do relatório : "& cust.ReportDate.ToShortDateString )
End Sub End Module
9
Clique em " F5" para testar o programa .
