Open Visual Studio 1 en creëren een nieuwe Visual Basic -console applicatie genaamd MultiClassDemo . Klik op " File " en vervolgens " Nieuw " en vul het nieuwe aanvraagformulier . Kopen van 2

Maak een nieuwe klasse met de naam Klant . Klik op " Project " en vervolgens " Nieuwe Klasse " voer vervolgens Klant in het veld naam . Wanneer de code editor venster verschijnt , wijzig de code als volgt .

Public Class Customer

Public Property
CustomerID As String = " "

Public Property NaamBedrijf
As String = " "

openbaar Domein Contact
As String = " "

Public Overridable Sub Load
( ByVal id As String )

KlantId = id

NaamBedrijf
=
" Acme Rental "

Contact
= " Joe Smith "

End Sub End Class

Deze klasse beschrijft een Customer object met eigenschappen voor ID , naam en contactgegevens . De methode Load wijst waarden aan de eigenschappen .
3

Herhaal bovenstaande stappen om een ​​Credit klasse te maken .

Public Class Credit

Openbaar Domein CustomerID
As String = " "

Public Property CreditScore
As String = " "

Public Property ReportDate
als Datum = Date.MinValue

Public Sub Load
( ByVal id als Koord ) < >

KlantId = id

CreditScore
= " A + "

ReportDate
= # 6/1/2011

End Sub End Class

br #

de Credit klasse
heeft ID , credit score en verslag date eigenschappen evenals zijn eigen Load -methode .
4

Maak een derde klasse met de naam CustomerCredit en voeg de erfelijke verklaring als volgt .

Public Class CustomerCredit

erft Customer

Wanneer de CustomerCredit klasse wordt gebouwd door de compiler , erft de CustomerID , Bedrijfsnaam en Contact eigenschappen alsmede de methode Load uit de Customer klasse .
5

Maak een nieuwe private veld genaamd score aan een instantie van de Credit klasse kapselen .

prive score
Als Nieuw Credit
6

bloot eigenschappen van de Credit klasse met afgeleide eigenschappen .

Public Property CreditScore
als Koord

Krijg

Terug score.CreditScore

Einde
Krijg

Set ( ByVal value As String )

score.CreditScore = waarde

End of Set

End Property

openbaar Domein ReportDate
als Datum

Get

Terug score.ReportDate

Einde
Krijg

Set
( ByVal waarde als Datum ) op Twitter

score.ReportDate = waarde

End Set End Property

Hoewel niet zo handig als multiple inheritance , dit doet bloot de Credit eigenschappen .
7

Hef Load methode van de klant om zowel te laden de Klant en de Credit eigenschappen .

Public
Negeert Sub Load ( ByVal id As String )

MyBase.Load ( id )

score.Load ( id )

End Sub End Class

8

code aan de belangrijkste functie in Module1 om de nieuwe afgeleide klasse te testen . Klik op " Windows " en klik op ' Module1.vb " . Wijzigen van de code als volgt :

Module Module1

Sub Main
( )

Dim cust
als Nieuwe CustomerCredit

cust.Load
( " 1234 " )

Console.WriteLine
( "Klant = " & cust.CustomerID )

Console.WriteLine
( " Bedrijf : " & cust.CompanyName )

Console.WriteLine
( " Contact : " & cust.Contact )

Console.WriteLine
( " Score van het Krediet : " & cust.CreditScore )

Console.WriteLine
( " date Report : " & cust.ReportDate.ToShortDateString )

End Sub End Module

9

Klik op " F5 " om het programma te testen .