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

cs_Rock Messages postés 43 Date d'inscription lundi 16 octobre 2000 Statut Membre Dernière intervention 31 mai 2006 - 14 déc. 2002 à 23:14
cs_SortestripS Messages postés 1 Date d'inscription dimanche 15 décembre 2002 Statut Membre Dernière intervention 15 décembre 2002 - 15 déc. 2002 à 13:06
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

cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
15 déc. 2002 à 03:56
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)
0
cs_Rock Messages postés 43 Date d'inscription lundi 16 octobre 2000 Statut Membre Dernière intervention 31 mai 2006
15 déc. 2002 à 09:10
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+
0
cs_SortestripS Messages postés 1 Date d'inscription dimanche 15 décembre 2002 Statut Membre Dernière intervention 15 décembre 2002
15 déc. 2002 à 13:06
SortestripS

Du doit avoir une foction Auto size Tape True au lieu de False
0
Rejoignez-nous