copier une listview

Version imprimable

23/05/2008, 16h46
cortex59

copier une listview
bonjour,

je voudrais copier une listview dans une variable
comment pourais je faire?

pour l'instant j'ai ecrit ceci:
Code:

1 2 Public liste As ListView liste = ListViewlecturetexte
il n'aime pas ceci

merci

bonsoir

les objets doivent être précédés du mot clé "Set":
Code:

1 2 3 4 5 6 7 Option Explicit Public Liste As ListView Private Sub CommandButton1_Click() Set Liste = ListViewlecturetexte MsgBox Liste.ListItems.Count End Sub
bon week end
michel

26/05/2008, 09h02
cortex59

bonjour,

et si j'ai besoin de faire l'inverve cad

Code:

ListViewlecturetexte = liste

cela ne fonctionne pas
comment je peu faire?
merci

peut etre l'utilisation d'un get?

une idée?
merci

bonsoir

ta demande n'est vraiment pas claire.
à tout hasard, tu peux essayer:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub CommandButton1_Click()
    Duplication ListView1, ListView2
End Sub
 
 
Sub Duplication(Source As ListView, Destination As ListView)
    Dim i As Integer, j As Integer
 
    Destination.ColumnHeaders.Clear
 
    For i = 1 To Source.ColumnHeaders.Count
        Destination.ColumnHeaders.Add , , _
            Source.ColumnHeaders(i).Text, _
            Source.ColumnHeaders(i).Width
    Next i
 
    For i = 1 To Source.ListItems.Count
        Destination.ListItems.Add , , Source.ListItems(i).Text
 
        For j = 1 To Source.ListItems(i).ListSubItems.Count
            Destination.ListItems(i).ListSubItems.Add , , _
                Source.ListItems(i).ListSubItems(j).Text
        Next j
    Next i
End Sub

bonne soirée
michel