|  
    
 Bien que Visual Basic de Microsoft interdit l'héritage multiple , elle offre encapsulation qui , lorsqu'il est utilisé de façon créative , peut obtenir le même effet . Héritage et encapsulation sont deux bases de la programmation orientée objet, chaque beaucoup plus facile à comprendre par exemple que la définition. Les deux techniques sont les moyens de tirer et d'étendre de nouvelles fonctionnalités à partir de code existant. Dériver une nouvelle classe en héritant alors une encapsulation des classes secondaires . Choses que vous devez   Microsoft Visual Studio ou Visual Basic Express 2010   de connaissances de base de Visual Basic.Net   Afficher plus Instructions   1  Ouvrez Visual Studio et créez une nouvelle application Visual Basic appelé console MultiClassDemo . Cliquez sur " Fichier" puis " Nouveau" et remplir le nouveau formulaire de demande.   2   Créer une nouvelle classe appelée clientèle . Cliquez sur " Project " puis " nouvelle classe " puis entrez clientèle dans le champ Nom . Lorsque la fenêtre de l'éditeur de code s'affiche , modifiez le code comme suit .     Public Class Customer     propriété publique CustomerID As String = ""     publique CompanyName de la propriété As String = "" Photos   publique de la propriété Contact As String = ""     publique Load Overridable Sub (id ByVal As String )     CustomerID = id     CompanyName = " Location Acme "    contact =" Joe Smith "    End Sub End Class         Cette classe décrit un objet à la clientèle avec des propriétés pour ID , nom et coordonnées . La méthode Load attribue des valeurs aux propriétés .   3   Répéter les étapes précédentes pour créer une classe de crédit .     Public Class crédit     publique CustomerID de la propriété As String = ""     publique CreditScore de la propriété As String = ""     publique ReportDate de la propriété As Date = Date.MinValue     charge public Sub ( ByVal id As String )     CustomerID = id     CreditScore = " A + "     ReportDate = # 6/1/2011 #     End Sub End Class     Photos   classe le crédit a ID , pointage de crédit et rapport propriétés de la date ainsi que sa propre méthode Load.   4   créer une troisième classe appelée CustomerCredit et ajoutez l'instruction hérité comme suit . Photos   public Class CustomerCredit     hérite clientèle     Lorsque la classe CustomerCredit se construit par le compilateur , il hérite des propriétés client, société et contact ainsi que la méthode de la charge de la classe Customer .   5   créer un nouveau champ privé appelé note pour encapsuler une instance de la classe de crédit .     note privé As New Credit   6   exposer les propriétés du Credit classe en utilisant les propriétés dérivées.     publique CreditScore de la propriété As String     Obtenir     Retour score.CreditScore     Fin Obtenir     Set ( ByVal valeur As String )     score.CreditScore = valeur     Fin Set     End bien immobilier   publique ReportDate de propriété comme date     Obtenir     Retour score.ReportDate     Fin Obtenir     Set ( ByVal valeur As Date )     score.ReportDate = valeur     Fin Set     End Bien immobilier   Bien que pas aussi pratique que l'héritage multiple , cela ne exposer les propriétés de crédit .   7   remplacer la méthode Load de la clientèle pour charger à la fois les propriétés de crédit client et .     Overrides Sub charge (id ByVal As String )     MyBase.Load (id)     score.Load (id)     End Sub End Class       8   ajouter du code à la fonction principale de Module1 pour tester la nouvelle classe dérivée. Cliquez sur "Windows" puis cliquez sur " Module1.vb " . Mise à jour du code pour lire comme suit :     Module Module1     Sub Main ( )     de cust As New CustomerCredit     cust.Load ( "1234" )     Console.WriteLine ("Client =" & cust.CustomerID )     Console.WriteLine (" Société :" & cust.CompanyName )     Console.WriteLine (" contact: "& cust.Contact )     Console.WriteLine (" Credit Score : "& cust.CreditScore )     Console.WriteLine (" Date du rapport : "& cust.ReportDate.ToShortDateString ) Photos   End Sub End Module       9   Cliquez sur "F5" pour tester le programme .    
 
 |