Ako sa dedia viac ako jednej triede v VB.NET

Hoci Microsoft Visual Basic zakazuje viacnásobnú dedičnosť , to ponúka zapuzdrenie , ktoré pri použití tvorivo , môže dosiahnuť rovnakého efektu . Dedičnosť a zapuzdrenie sú dva základy objektovo orientovaného programovania , každý oveľa ľahšie pochopiť na príklade , ako definícia . Obe metódy sú spôsoby , ako odvodiť a rozšíriť nové funkcie od existujúceho kódu . Odvoďte novú triedu dediť jeden potom zapuzdrenie druhej triedy . Veci , ktoré budete potrebovať v Microsoft Visual Studio alebo Visual Basic Express 2010
Základná znalosť Visual Basic.Net
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte aplikáciu Visual Studio a vytvoriť Nová aplikácia Visual Basic konzoly s názvom MultiClassDemo . Kliknite na " Súbor " a potom " Nový " a vyplňte novú prihlášku .
2

Vytvorte novú triedu s názvom zákazníkmi . Kliknite na " projekt " a potom " nová trieda " , potom zadajte zákazníka v poli Názov . Akonáhle sa zobrazí okno editora kódu , upravte kód takto .

Public class Customer

Public Property CustomerID As String = " "

Verejná vlastnosť companyname As String = " "

Public Property Kontaktný As String = " "

Public Overridable Sub Load ( byVal id As String )

ČísloZákazníka = id

companyname = " Acme Prenájom "

Kontaktný = " Joe Smith "

End Sub End Class

Táto trieda popisuje objekt zákazníkom s vlastnosťami pre ID , meno a kontakt . Metóda Load priradí hodnoty k vlastnostiam .
3

Opakujte vyššie uvedené kroky pre vytvorenie Credit triedu .

Verejné zápočte

verejného majetku ČísloZákazníka as String = " "

verejné vlastníctvo CreditScore as String = " "

verejné vlastníctvo ReportDate Ako Date = Date.MinValue

Public Sub Load ( byVal id as String )

CustomerID = id

CreditScore = " + "

ReportDate = # 1/6/2011 #

End Sub

End Class

Credit trieda má ID , kreditné skóre a dátum správa vlastnosti , rovnako ako jeho vlastnú metódu Load .
4

Vytvorte tretiu triedu s názvom CustomerCredit a pridať zdedené príkaz nasledovne .

Public Class CustomerCredit

Dedí zákazníka

Keď sa dostane trieda CustomerCredit postavený kompilátora , že zdedí KódZákazníka , názov spoločnosti a kontaktujte vlastnosti , rovnako ako spôsob zaťaženie od trieda zákazníkmi .
5

Vytvoriť nový súkromnú pole s názvom skóre zapouzdřit inštanciu Credit triedy .

Súkromná skóre ako novú kreditnú
6

vystaviť vlastnosti Credit trieda je pomocou získaných vlastností . klipart

Verejná vlastnosť CreditScore As String

si

Späť score.CreditScore

End Get

Set ( byVal hodnota As String )

score.CreditScore = hodnota

End Set End Property

verejné vlastníctvo ReportDate Ako Dátum

Get

Späť score.ReportDate

End Get

Set ( byval hodnota ako dátum )

score.ReportDate = hodnota

End Set End Property

Hoci to nie je tak pohodlné ako viacnásobné dedičnosti , to sa vystaviť kreditnú vlastnosti .
7

Prepísať metódu Load Zákazníka načítať ako zákazník a kreditné vlastnosti .

Verejné Prepíše Sub Load ( byVal id As String )

MyBase.Load ( id )

score.Load ( id )

End Sub End Class

8

Pridať kód do hlavnej funkcii v Module1 otestovať nový odvodené triedy . Kliknite na " Windows " a potom kliknite na " Module1.vb " . Aktualizovať kód takto :

Module Module1

Sub Main ( )

Dim cust ako New CustomerCredit

cust.Load ( " 1234 " )

Console.WriteLine ( " zákazník = " & cust.CustomerID )

Console.WriteLine ( " spoločnosť " a cust.CompanyName )

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

Console.WriteLine ( " Credit Score " a cust.CreditScore )

Console.WriteLine ( " Dátum vystavenia správy: " & cust.ReportDate.ToShortDateString )

End Sub End Module

9

Kliknite na " F5 " test program .

• Predchádzajúca strana: Ako používať VbNewLine v Vb.Net 
• Ďalšia strana: Ako používať ftp z VBA