Comment dimensionner un listbox en fonction du nb de ligne qu il contient

Signaler
Messages postés
43
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
31 mai 2006
-
cs_SortestripS
Messages postés
1
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
15 décembre 2002
-
Salut
je voudrais redimensionner automatiquement un listbox en fonction du nombre de ligne qu il contient afin que l on puisse voir toutes les lignes .

Merci d avance

3 réponses

Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Private Sub Form_Load()
List1.FontName = Me.FontName
List1.FontSize = Me.FontSize
hauteur = Me.TextHeight("N'importe quoi")
'Parce-que ListBox n'a pas de propriété
TextHeight,
'on fait un détour par la Form
List1.Clear
End Sub

'et à chaque fois qu'on modifie la ListBox
'(List1.AddItem
'ou List1.RemoveItem
'ou List1.Clear)
'on ajoute :

List1.Height = hauteur * (1 + List1.ListCount)
Messages postés
43
Date d'inscription
lundi 16 octobre 2000
Statut
Membre
Dernière intervention
31 mai 2006

Merci et encore Merci pour ta réponse rapide et qui fonctionne exactement comme je le voulais.
Je vais pouvoir appliquer cette methode pour controler la largeur de la listbox aussi avec

largeur=me.TextWidth("La chaine la + grande contenu dans la listbox")

Je remercie les personnes qui participent a ce forum et surtout a rene38

{:-)

Bientot peut etre une des mes petites créations sur ce site.
a+
Messages postés
1
Date d'inscription
dimanche 15 décembre 2002
Statut
Membre
Dernière intervention
15 décembre 2002

SortestripS

Du doit avoir une foction Auto size Tape True au lieu de False