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 
 
Set ( ByVal value As String ) per
 score.CreditScore = valore 
 
End Set
Programmazione © www.354353.com