Largeur des colonnes d'une listeview

[Résolu]
Signaler
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
-
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
-
Bonjour,

J'aimerais savoir comment faire pour que la largeur des colonnes d'une listeview prennent automatiquement la largeur du texte du column header.

Merci d'avance

Masterpopeye

3 réponses

Messages postés
195
Date d'inscription
dimanche 10 février 2002
Statut
Membre
Dernière intervention
16 février 2016

Sauf erreur de ma part, il pas de propriété qui permet cet ajustement automatique dans le Fwrk 1.1. la solution est de fixer en dure la taille de tes colonnes (si l'en tête n'est pas succeptible de changer) ou sinon calculer la taille en pixel du texte de ton header et lui affecter sa largeur en fonction de celle ci (ce procédé est plus gourmand en ressource il me semble et doit faire appel au using drawing, il me semble)

RodCobalt22, vous salue bien
Pensez au TAG résolu ! Ainsi les réponses seront plus facile à trouver et les serial Helper iront plus vite
 PS : Pardonnez mes fautes d'orthographe (All
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Avant d'essayer de répondre à ta question , il serait bon que tu précise avec quel langage tu travail. En effet la section dans laquelle tu as décidé de poster ta question ne le dit pas.
[infomsg.aspx Thèmes] / [infomsgf_CODES-SOURCES_43.aspx CodeS-SourceS] / [infomsgt_BAR_770.aspx Le Bar] / [infomsgt_DISCUSSIONS-LIBRES_774.aspx Discussions libres]

cette section est commune à tous les sites CodeS-SourceS

@+: Ju£i?n
Pensez: Réponse acceptée
Messages postés
27
Date d'inscription
lundi 8 octobre 2007
Statut
Membre
Dernière intervention
11 décembre 2007
1
Désolé d'avoir oublié de préciser que je travaille avec VB6. Pour ma part je me suis penché sur la question et j'ai pensé à une fonction qui à l'air de bien fonctionner la voici:

   Dim col As ColumnHeader
    Dim temp_string As String
    Dim taille As Integer
    Dim inttel As Integer
   
    For Each col In liste.ColumnHeaders
        taille = 225
        inttel = 1
        temp_string = col.text
debut:
        While Mid(temp_string, inttel, 1) <> ""
            taille = taille + 75
            inttel = inttel + 1
        Wend
        inttel = inttel + 1
        taille = taille + 75
        If Mid(temp_string, inttel, 1) <> "" Then GoTo debut
       
        col.Width = taille
    Next

Masterpopeye