Public MustInherit Class LadeManager(Of T) Protected Laden As List(Of T) ''' ''' Geen constructor zonder parameters. ''' Private Sub New() End Sub ''' ''' Initialiseren met lijst van laden. ''' ''' De laden Public Sub New(laden As List(Of T)) Me.Laden = laden End Sub ''' ''' Eerste lade opvragen of Nothing retourneren. (FirstOrDefault) ''' ''' Eerste lade of Nothing Public Function EersteOfStandaard() As T Return Laden.FirstOrDefault() End Function ''' ''' Alle laden updaten met waarden uit andere lade. ''' ''' De andere lade Public MustOverride Sub UpdateAlle(gewijzigdeLade As T) End Class