Πώς να κληρονομήσουν από περισσότερες από μία κατηγορίες σε VB.NET

Αν Visual Basic της Microsoft απαγορεύει πολλαπλή κληρονομικότητα , δεν προσφέρει ενθυλάκωση το οποίο , όταν χρησιμοποιείται δημιουργικά , μπορεί να επιτευχθεί το ίδιο αποτέλεσμα . Κληρονομικότητα και ενθυλάκωση είναι δύο θεμέλια του αντικειμενοστρεφούς προγραμματισμού , το καθένα πολύ πιο εύκολο να κατανοήσουν μέσα από το παράδειγμα από τον ορισμό . Και οι δύο τεχνικές είναι οι τρόποι για να αντλήσουν και να επεκτείνει το νέο της λειτουργικότητας από υπάρχοντα κώδικα . Εξάγει μια νέα κατηγορία από κληρονομεί ένα τότε ενσωματώνει τις τάξεις δεύτερο . Τα πράγματα που θα χρειαστείτε για Microsoft Visual Studio ή Visual Basic 2010 Express
Βασικές γνώσεις Visual Basic.Net
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Visual Studio και να δημιουργήσει μια νέα εφαρμογή της Visual Basic κονσόλας που ονομάζεται MultiClassDemo . Κάντε κλικ στο " Αρχείο " τότε "Νέα" και ολοκληρώνουν το νέο έντυπο της αίτησης . 2

Δημιουργήστε μια νέα κατηγορία που ονομάζεται πελατών . Κάντε κλικ στο " Project" τότε " Νέα Τάξη " και στη συνέχεια εισάγετε Πελατών στο πεδίο ονόματος . Όταν εμφανιστεί το παράθυρο επεξεργασίας κώδικα , να τροποποιήσει τον κώδικα ως εξής .

Δημόσιας Τάξης
πελατών

Δημόσιας Περιουσίας CustomerID As String = " "

Δημόσιας Περιουσίας CompanyName As String = " "

Δημόσιας Περιουσίας Επικοινωνία As String = " "

Δημόσια Overridable Sub φορτίου ( ByVal id Όπως String )

CustomerID = id

CompanyName = " Ενοικιάζεται Acme "

Επικοινωνία = " Joe Smith "

End Sub

End Class

Η κατηγορία αυτή περιγράφει ένα αντικείμενο πελατών με ιδιότητες για την ταυτότητα , το όνομα και τα στοιχεία επικοινωνίας . Η μέθοδος Load αναθέτει τιμές στις ιδιότητες .
Εικόνων 3

Επαναλάβετε τα παραπάνω βήματα για να δημιουργήσετε μια πιστωτική τάξη .

Δημόσιας Τάξης Credit

Δημόσιας Περιουσίας ΚωδΠελάτη As String = " "

Δημόσιας Περιουσίας CreditScore As String = " "

Δημόσιας Περιουσίας ReportDate ως Ημερομηνία = Date.MinValue

φορτίου Public Sub ( ByVal id Όπως String )

CustomerID = id

CreditScore = " A + "

ReportDate = # 6/1/2011 #

End Sub

End Class

Η Credit τάξη έχει ταυτότητα , το πιστωτικό αποτέλεσμά και ημερομηνία έκθεσης ιδιότητες, καθώς και τη δική του μέθοδο Load του .
Η 4

Δημιουργήστε μια τρίτη κατηγορία που ονομάζεται CustomerCredit και προσθέστε το κληρονόμησε δήλωση ως εξής .

Δημόσιας τάξης CustomerCredit

Κληροδοτήσεις Πελατών

Όταν η κλάση CustomerCredit παίρνει χτίστηκε από τον compiler , κληρονομεί τα CustomerID , CompanyName και Επικοινωνία ιδιότητες, καθώς και τη μέθοδο φορτίου από το κατηγορία πελατών .
5

Δημιουργήστε ένα νέο πεδίο που ονομάζεται ιδιωτικό σκορ να ενσωματώσει μια εμφάνιση της Credit κατηγορίας .

ιδιωτική σκορ Ως νέα πιστωτική
Η 6

εκθέτει τις ιδιότητες της Credit τάξη χρησιμοποιώντας προέρχεται ιδιότητες .

Δημόσιας Περιουσίας CreditScore As String

πάρει

Επιστροφή score.CreditScore

End Get

Set ( ByVal αξία Όπως String )

score.CreditScore = αξία

End Set

End ιδιοκτησίας

Δημόσιας Περιουσίας ReportDate Ως Ημερομηνία

Get

Επιστροφή score.ReportDate

End Πάρτε

Set ( ByVal αξία Όπως ημερομηνία)

score.ReportDate = αξία

Τέλος Set

End ιδιοκτησίας

Αν και δεν είναι τόσο εύκολη όπως πολλαπλή κληρονομικότητα , αυτό δεν εκθέτουν τις πιστωτικές ιδιότητες .
Η 7

Παράκαμψη μέθοδο Load του Πελάτη να φορτώσει και τα δύο η Credit οι ιδιότητες των πελατών και .

Δημόσια Παρακάμπτει Sub Load ( id ByVal Όπως String )

MyBase.Load ( id )

score.Load ( id )

End Sub

End Class
8

Προσθέστε κώδικα με την κύρια λειτουργία σε Module1 να δοκιμάσει το νέο παραγόμενη κλάση . Κάντε κλικ στο "Windows" , στη συνέχεια, κάντε κλικ στο κουμπί " Module1.vb " . Ενημερώστε τον κώδικα ως εξής :

Module Module1

Sub Main ( )

Dim cust As New CustomerCredit

cust.Load ( " 1234 " )

Console.WriteLine ( «Πελάτης =" & cust.CustomerID )

Console.WriteLine ( " Εταιρία : " & cust.CompanyName )

Console.WriteLine ( " Επικοινωνία : " & cust.Contact )

Console.WriteLine ( " Credit Score: " & cust.CreditScore )

Console.WriteLine ( " ημερομηνία Έκθεση : " & cust.ReportDate.ToShortDateString )

End Sub

End Module
Η

9 Κάντε κλικ στο κουμπί " F5 " για να ελέγξετε το πρόγραμμα .
Η
εικόνων