Index - Omat
luokat - New - Get
ja Set
- Metodit - Perintä - Overrides - Implements
Perintä
Uuden luokan voi määritellä siten, että se perii
(Inherits) ominaisuutensa ja metodinsa joltain toiselta luokalta ja
samalla lisää uusia ominaisuuksia/metodeja tai korvaa
omillaan toisen luokan omonaisuulsia/metodeja.
Esimerkissä tehdään uusi luokka "Tuoli", joka perii
luokasta "Huonekalu" ja lisää siihen ominaisuuden
"Päällyste". Luokalla tuoli on
käytettävinään kaikki luokan "Huonekalu"
ominaisuudet ja metodit kuten esim. LaskeMyyntihinta().
Public Class Tuoli
Inherits Huonekalu ' perintä luokasta Huonekalu
Private _Päällyste As String
Sub New()
MyBase.New() ' kutsutaan luokan Huonekalu luontia
End Sub
Property Päällyste() As String ' uusi lisättävä ominaisuus
Get
Return _Päällyste
End Get
Set(ByVal Value As String)
_Päällyste = Value
End Set
End Property
End Class
Käyttöesimerkki:
Dim Tuoli2 As Tuoli = New Tuoli
Tuoli2.Laji = "Nojatuoli"
Tuoli2.Ostohinta = 123.5F
Myyntihinta = Tuoli2.LaskeMyyntihinta(50)
Tuoli2.Päällyste = "Nahka"
'haetaan rekisteröinti pvm, jonka on tehnyt "huonekalu" luokassa
Dim pvm As Date = Tuoli2._RekisteröintiPVM