Discussion :

[beegees]

Bonjour tout le monde,

J'ai utilisé le code que nous avons appris en classe pour la création d'une listview, voici ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Sub RemplirListe(ByRef Ctrl As Control, ByRef Tableau As Variant)
    Dim Indice As Integer, Indice1 As Integer, Indice2 As Integer
    Dim iCol As Integer, i As Integer
 
    If (TypeOf Ctrl Is ComboBox) Or (TypeOf Ctrl Is ListBox) Then
        Ctrl.Clear
        If IsArray(Tableau) Then
            Indice1 = LBound(Tableau)
            Indice2 = UBound(Tableau)
        End If
        Indice1 = LBound(Tableau)
        Indice2 = UBound(Tableau)
        For Indice = Indice1 To Indice2
            Ctrl.AddItem "" & Tableau(Indice)
            Ctrl.ItemData(Ctrl.NewIndex) = Indice
        Next Indice
    ElseIf (TypeOf Ctrl Is ListView) Then
        Ctrl.ListItems.Clear
        If IsArray(Tableau) Then
            Indice1 = LBound(Tableau)
            Indice2 = UBound(Tableau)
        End If
        Indice1 = LBound(Tableau)
        Indice2 = UBound(Tableau)
        For Indice = Indice1 To Indice2
            With Ctrl.ListItems.Add
                .Tag = Indice
                If Not IsArray(Tableau(Indice)) Then
                    .Text = "" & Tableau(Indice)
                Else
                    iCol = 0
                    For i = LBound(Tableau(Indice)) To UBound(Tableau(Indice))
                        If iCol = 0 Then
                            .Text = "" & Tableau(Indice)(i)
                        Else
                            .SubItems(iCol) = "" & Tableau(Indice)(i)
                        End If
                        iCol = iCol + 1
                        If iCol > Ctrl.ColumnHeaders.Count Then Exit For
                    Next i
                End If
            End With
        Next Indice
    End If
End Sub

Je me demandais pourquoi il créait d'office trois colonnes ?

Le code classe donc le nom des crus sur trois colonnes, comment est-il possible de dire :

Colonne 1 : info A
Colonne 2 : info B
Colonne 3 : info C

Merci d'avance pour l'aide.

beegees

[Delbeke]

Le code est très dense, ce qui ne facilite pas sa compréhension.
D'après ce que j'en comprend, Tableau est un tableau de tableau (ce qui est très peu utilisé en VB)ou un tableau à une dimension.
Je te propose une autre ecriture du même code limité à un tablea de tableau, qui je pense sera plus lisible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
26
27
Dim lstItem as ListItem
Dim PremLigne as Long
Dim DernLigne as Long
Dim PremCol as Long
Dim DernCol as Long
Dim Ligne as Long
Dim Colonne as Long
 
...
 
    ElseIf (TypeOf Ctrl Is ListView) Then
        Ctrl.ListItems.Clear
        PremLigne = LBound(Tableau)
        DernLigne = UBound(Tableau)
        PremCol = Lbound(Tableau(PremLigne ))
        DernCol = Ubound(Tableau(DernLigne))
        For Ligne = PremLigne To DernLigne 
            Set lstItem = Ctrl.ListItems.Add
            lstItem.Tag = Indice
            lstItem.Text =  "" & Tableau(Ligne )(PremCol)
            iCol=1
            For Colonne = PremCol+1 to DernCol
                lstItem.SubiTem(iCol) = Tableau(Ligne )(Colonne)
                iCol= iCol +1
            Next Colonne 
         Next Ligne 
    End If

[jfdmagic]

je te propose ce code qui ne marche que si tu connais le nombre de colonnes à l'avance (ce qui est le cas si tu travailles avec une base de données qui est censé est fixe au niveau de sa structure)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
'pour ajouter une colonne'
ListView1.ColumnHeaders.Add , , "Colonne 1", (ListView1.Width * (0,10)), lvwColumnLeft
ListView1.View = LvwReport
'0,10 est la proportion de la longueur de ta liste de que tu accordes à la colonne ; tu peux utiliser d'autres alignements sauf pour la première qui est automatiquement à gauche'
'Tu ajoutes autant de colonnes que tu veux'