Keskustelu: Ohjelmointikysymykset: VB.NET: Luokkataulukon alkioon vaikuttaminen arvon perusteella...

Module Metsänhoito_module
    Dim SysiMetsä As New Metsä_class

    Sub KaadaPuut(ByVal Laji As String)
        For i As Integer = 0 To SysiMetsä.Puut.Length - 1
            If SysiMetsä.Puut(i).Laji = Laji Then
                SysiMetsä.Puut(i).Määrä = 0
                Exit For
            End If
        Next
    End Sub
End Module




Public Class Metsä_class
    Public Puut(-1) As Puut_class

    Public Class Puut_class
        Public Laji As String
        Public Määrä As Integer
    End Class

    Public Sub LisääUusiPuu(ByVal Laji As String)
        ReDim Preserve Puut(Puut.Length)
        Puut(Puut.Length - 1).Laji = Laji
    End Sub
End Class

Class Puut
	Private lajit As New Dictionary(Of String, Integer)()
	Private puut As New List(Of Puu)()

	Public Default Property Item(index As Integer) As Puu
		Get
			Return puut(index)
		End Get
		Set
			puut(index) = value
		End Set
	End Property
	Public Default Property Item(laji As String) As Puu
		Get
			Return puut(lajit(laji))
		End Get
		Set
			puut(lajit(laji)) = value
		End Set
	End Property
	Public Function Add(laji As String, puu As Puu) As Integer
		' palauttaa lisätyn puun indeksin
		If lajit.ContainsKey(laji) Then
			Throw New Exception("Laji on jo")
		End If
		puut.Add(puu)
		Dim newIndex As Integer = puut.Count - 1
		lajit(laji) = newIndex
		Return newIndex
	End Function

End Class
Class Puu
	Public Property Laji() As String
		Get
			Return m_Laji
		End Get
		Set
			m_Laji = Value
		End Set
	End Property
	Private m_Laji As String
	Public Property Määrä() As Integer
		Get
			Return m_Määrä
		End Get
		Set
			m_Määrä = Value
		End Set
	End Property
	Private m_Määrä As Integer
End Class