COPIAR COLLECTION
Bom dia,
Alguém sabe como criar uma cópia de uma collection, só que quando alterar a original não deve alterar a cópia
ex.:
Private Sub Command1_Click()
Dim x As New Collection
Dim copia As New Collection
x.Add [Ô]1[Ô]
Set copia = x
x.Remove 1
[ô]quero que a collection copia ainda tenha o valor inserido
End Sub
Alguém sabe como criar uma cópia de uma collection, só que quando alterar a original não deve alterar a cópia
ex.:
Private Sub Command1_Click()
Dim x As New Collection
Dim copia As New Collection
x.Add [Ô]1[Ô]
Set copia = x
x.Remove 1
[ô]quero que a collection copia ainda tenha o valor inserido
End Sub
Acho que já descobri, terei que copiar na mão, mas se alguém tiver algum jeito diferente ainda vou deixar aberto o tópico:
Private Sub Command1_Click()
Dim x As New Collection
Dim copia As New Collection
Dim intCont As Integer
x.Add [Ô]1[Ô]
[txt-color=#e80000] For intCont = 1 To x.Count
copia.Add x.Item(intCont)
Next intCont[/txt-color]
x.Remove 1
[ô]quero que a collection copia ainda tenha o valor inserido
End Sub
Private Sub Command1_Click()
Dim x As New Collection
Dim copia As New Collection
Dim intCont As Integer
x.Add [Ô]1[Ô]
[txt-color=#e80000] For intCont = 1 To x.Count
copia.Add x.Item(intCont)
Next intCont[/txt-color]
x.Remove 1
[ô]quero que a collection copia ainda tenha o valor inserido
End Sub
Realmente eh essa a solucao, ao criar uma copia da instancia, ela vai se alterar tambem.
Dim COL1 as new collection
COL1.Add [Ô]VBMania[Ô]
Dim COL2 as new collection
Set COL2 = COL1
Isso nao vai funcionar, voce precisa [Ô]varrer[Ô] a colecao inteira adicionando item a item realmente.
Dim COL1 as new collection
COL1.Add [Ô]VBMania[Ô]
Dim COL2 as new collection
Set COL2 = COL1
Isso nao vai funcionar, voce precisa [Ô]varrer[Ô] a colecao inteira adicionando item a item realmente.
Tópico encerrado , respostas não são mais permitidas