Anche se Microsoft Visual Basic vieta l'ereditarietà multipla , esso offre incapsulamento che , se usato in modo creativo, in grado di ottenere lo stesso effetto . Ereditarietà e incapsulamento sono due fondamenti della programmazione orientata agli oggetti , ciascuno molto più facile da capire con l'esempio di definizione . Entrambe le tecniche sono modi per derivare ed estendere le nuove funzionalità da codice esistente . Derivare una nuova classe ereditando uno poi incapsulare le classi seconde . Cose che ti serviranno
Microsoft Visual Studio o Visual Basic Express 2010
conoscenza di base di Visual Basic.Net
Show More Istruzioni
1

Aprire Visual Studio e creare una nuova applicazione Visual Basic-Console, chiamato MultiClassDemo . Fare clic su "File " e poi " Nuovo" e compilare il nuovo modulo di domanda .
2

Creare una nuova classe denominata Cliente. Fare clic su "Progetto ", quindi " Nuova Classe ", quindi immettere clienti nel campo del nome . Quando viene visualizzata la finestra dell'editor del codice , modificare il codice come segue . CustomerID

Public Class clienti

Proprietà pubblica As String = " "

pubblica CompanyName Proprietà As String = " "

pubbliche Proprietà contatto As String = " "

Public Overridable carico Sub ( id ByVal come stringa ) per

CustomerID = id

CompanyName = "Noleggio Acme "

contatto = " Joe Smith "

End Sub End Class

Questa classe descrive un oggetto Customer con le proprietà per ID , nome e contatto. Il metodo Load assegna valori alle proprietà .
3

Ripetere i passaggi precedenti per creare una classe di credito .

Public Class Credit

Public Property ID cliente As String = " "

pubblico creditscore Proprietà As String = " "

pubblico ReportDate proprietà come data = Date.MinValue

pubblico Load Sub ( ByVal id come stringa)

CustomerID = id

creditscore = " A + "

ReportDate = # 6/1/2011 #

End Sub

End Class

classe il credito deve ID , punteggio di credito e la proprietà data della Relazione , nonché il proprio metodo Load .
4

creare una terza classe chiamata CustomerCredit e aggiungere l'istruzione ereditato come segue .

Public Class CustomerCredit

eredita clienti

Quando la classe CustomerCredit viene costruito dal compilatore , che eredita le proprietà CustomerID , CompanyName e di contatto , nonché il metodo Load della classe Customer .
5

creare un nuovo campo privato denominato punteggio di incapsulare un'istanza della classe di credito .

punteggio privata As New Credit
6

esporre le proprietà della classe di credito utilizzando le proprietà derivate.

pubblico creditscore proprietà As String

Get

Torna score.CreditScore

Fine Come
< p > Set ( ByVal value As String ) per

score.CreditScore = valore

End Set