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