Largeur colonne d'un ListView

Question

Salut

Comment faire un autosize sur la largeur des colonnes en fonction du contenu ?

Herve

jmfmarques · Answer

Si c'est comme sous VB6, il te faudra d'abord déterminer la largeur graphique de la donnée la plus large à y insérer....
Une fois cette largeur connue, il ne reste plus qu'à la donner à la colonne concernée.

Utilisateur anonyme · Answer

Hé non, le travail est déjà tout maché.
Columns.AutoResize(System.Windows.Forms.ColumnHeaderAutoResizeStyle.ColumnContent)





__________
Kenji

Utilisateur anonyme · Answer

Erreur de copier/coller :

TaListView.AutoResizeColumns(System.Windows.Forms.ColumnHeaderAutoResizeStyle.ColumnContent)






__________
Kenji

jmfmarques · Answer

Ah...
Enfin une amélioration (réelle) apportée par VB.Net.

Seth77 · Answer

j'ai pas AutoResizeColumns...cela doit etre du a VS qui est trop vieux !

Herve

Utilisateur anonyme · Answer

Oui, ca doit être ca :
Regarde si la méthode AutoResize existe pour les colonnes


TaListView.Columns(IndexDeLaColonne_FaudrasFaireUneBoucle).AutoResize(System.Windows.Forms.ColumnHeaderAutoResizeStyle.ColumnContent)






__________
Kenji

Seth77 · Answer

Non ..tanpis

Herve

jmfmarques · Answer

Suis déçu !
Bon, alors... il te reste ma solution VB6 à faire en VB.Net ...

cs_Exploreur · Answer

Salut,

Voici une fonction que m'avais donner une personne qui je reconnaîtra je pense...Par  contre je ne sais pas si tu peux l'adapter en .net

Public Function AutoListView1(FormeName As Form, LV As ListView)
    ' On va régler la largeur des colonnes en fonction du contenu
    
    Dim r As Integer, t As Long, Largeur As Long, Max As Long
    
    ' Donne à la forme la même police que le ListView
    FormeName.Font = LV.Font
    
    ' 1ere colonne (n'est pas une SubItem)
    ' 1ere valeur : la largeur de l'étiquette
    Max = FormeName.TextWidth(LV.ColumnHeaders(1).Text)
    For t = 1 To LV.ListItems.Count
        Largeur = FormeName.TextWidth(LV.ListItems(t).Text)
        If Largeur > Max Then Max = Largeur
    Next t
    LV.ColumnHeaders(1).Width = Max * 2
    
    For r = 2 To LV.ColumnHeaders.Count
        ' 1ere valeur : la largeur de l'étiquette
        Max = FormeName.TextWidth(LV.ColumnHeaders(r).Text)
        ' Ensuite, le test de ttes les données
        For t = 1 To LV.ListItems.Count
            Largeur = FormeName.TextWidth(LV.ListItems(t).SubItems(r - 1))
            If Largeur > Max Then Max = Largeur
        Next t
        LV.ColumnHeaders(r).Width = Max * 2
    Next r
End Function

A+
Exploreur

Largeur colonne d'un ListView

9 réponses

Votre réponse

Discussions similaires