Re: Aprire più copie di una stessa istanza

[Azzolini Stefano <lastguest at gmail dot com>]

Ciao Marco,

Il giorno 29/dic/07, alle ore 13:28, BluStar ha scritto:

> Come da oggetto è possibile aprire più copie di una stessa istanza ?
Immagino tu intenda dire che vuoi clonare una istanza già esistente.
Mettiamo il caso che tu abbia la tua classe MiaClasse avente le  
seguenti proprietà :
propIntera As Integer
propStringa As String

Aggiungi alla classe questa funzione :

Function Clona() As MiaClasse
        Dim temp as New MiaClasse

	// Copio le proprietà di questa istanza nella nuova istanza appena  
creata.
        temp.propIntera = self.propIntera
        temp.propStringa = self.propStringa

        Return temp
End Function

Che andrà usata come in questo esempio :

Dim objA,objB as MiaClasse

objA = New MiaClasse
objA.propIntera = 33
objA.propStringa = "Ciao!"

objB = objA.Clona

objA.propStringa = "Non devi vedermi!"

MsgBox objB.propStringa
// Output : "Ciao!"

Spero di esserti stato utile.
Saluti,
Stefano Azzolini.