dotNETportal.cz

Nedávno jsme to tady řešili. http://www.vbnet.cz/forum-tema--1270-kol...

A ještě něco, nemůžete hned přiřazovat do pole Znacka(i), musíte nejdříve do každého políčka vytvořit novou instanci třídy, uvnitř cyklu před samotným With blokem. U struktur to nutné není, u tříd ano.

Pokud vám jde vyloženě o "rozmnožení", tj. klonování požadované třídy nebo struktury, což znamená vytvoření nové instance se stejnými daty, můžete to realizovat implementací rozhraní ICloneable...

Module Module1
  Sub Main()
    Dim agent0 As New Agent(100, 100)
    Dim agent47 As Agent = DirectCast(agent0.Clone(), Agent)
  End Sub

  'Definice klonovatelné třídy
  Class Agent
    Implements ICloneable
    Private _stealth As Byte
    Private _aiming As Byte
    Public Sub New(ByVal aiming As Byte, ByVal stealth As Byte)
      _aiming = aiming
      _stealth = stealth
    End Sub
    Public ReadOnly Property Aiming() As Byte
      Get
        Return _aiming
      End Get
    End Property
    Public ReadOnly Property Stealth() As Byte
      Get
        Return _stealth
      End Get
    End Property
    'Samotná implementace klonování
    Public Function Clone() As Object Implements System.ICloneable.Clone
      Return New Agent(_aiming, _stealth)
    End Function
  End Class
End Module