Discussion :

[stef2000]

BOnjour,

Je travaille en ce moment sur access2003 et j'ai besoin de lister des elements. Pour ce faire j'utilise en ce momemt un simple list box (il y a beaucoup de colonne et beaucoup de lignes). Je n'ai evidement aucun probleme a redimensionner les colonnes automatiquement dans la listbox. Par contre j'aimerais bien utiliser un petit icone devant chaque ligne permettant ainsi de visualiser son type. J'ai eu l'idee d'utilisee un listview mais je ne trouve pas de moyen de determiner la taille des colonnes automatiquement en fonction de l'item le plus long de la colonne (header y compris)

Est ce possible et si oui comment car pour le moment je ne peux que mettre une lageur par defaut lors de la creation des colonnes


MErci beaucoup

[stef2000]

bon finalement ce n'etais pas si difficile que ca mais j'aimerais bien que l'on me donne le taux de conversion exact pour convertir le nombre de caractere en point. Ici j'ai plus fait du essais erreur

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
Public Function AutoColumnWidthListView(LV As Control)
    ' On va régler la largeur des colonnes en fonction du contenu
 
    colRatio = 155.7
 
    Dim r As Integer, t As Long, Largeur As Long, Max As Long
 
    ' 1ere colonne (n'est pas une SubItem)
    ' 1ere valeur : la largeur de l'étiquette
    Max = Len(LV.ColumnHeaders(1).Text)
    For t = 1 To LV.ListItems.Count
        Largeur = Len(LV.ListItems(t).Text)
        If Largeur > Max Then Max = Largeur
    Next t
 
    LV.ColumnHeaders(1).Width = Max * colRatio
 
    For r = 2 To LV.ColumnHeaders.Count
        ' 1ere valeur : la largeur de l'étiquette
        Max = Len(LV.ColumnHeaders(r).Text)
        ' Ensuite, le test de ttes les données
        For t = 1 To LV.ListItems.Count
            Largeur = Len(LV.ListItems(t).SubItems(r - 1))
            If Largeur > Max Then Max = Largeur
        Next t
        LV.ColumnHeaders(r).Width = Max * colRatio
    Next r
 
End Function