PRIMJER
Dim ime as String
Dim visina as Decimal
Dim pozicija as Short
Dim ImeEkipe as String
Sub New()
ime = ""
visina = 0
pozicija = 1
ImeEkipe = ""
End Sub
End Class
....
dim igracA as new Igrac
igrac.ime = "Pavle"
igrac.ImeEkipe = "Sampion"
dim igracB as new Igrac
igracB=igracA
igracB.ime="Brane"
.......
Umjesto da sad imam dva igraca Pavle, Brane, dobio sam referencu na prvi objekat. Ima li drugačiji način dodijeljivanja vrijednosti drugom objektu sem ručnog, jer u situaciji kad klasa ima više svojstva, 30, za dodijeli puno je ručnog koda....
.......
dim igracB as new Igrac
igracB.ime="Brane"
igracB.imeEkipe=igracA.ImeEkipe
igracB.nesto=igracA.nesto
........
A ne želim, nemam potrebu da svojstvo imeEkipe učinim djeljenim, Private Shared ImeEkipe.
[Ovu poruku je menjao mmix dana 17.08.2010. u 09:30 GMT+1]