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

Question

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

cs_rene38 · Answer

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)

cs_Rock · Answer

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+

cs_SortestripS · Answer

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