Filelistbox et HScrollBar

Bonjour à tous, je cherche un moyen d'insérer une HSrollbar à une Filelistbox.

Je n'ai pas réussi à le faire en utilisant le code équivalent pour ajouter une HScrollBar à une ListBox, peut être avez vous une autre solution.

Merci d'avance

Le filelistbox a un scroll-bar automatique , il me semble

Oui mais il sagit d'un VScrollBar or il veut un HScrollBar lorsque les noms de fichier sont trop large je pense ;)

Plus qu'une seule solution: recreer completement un nouveau composant a l'aide d'un ListBox, un Hscroll et un vscroll

Bonjour Delbeke.

Tu as raison et tort à la fois. :lol:
Petite gymnastique pour rire ensemble et crier partout que nous n'avons pas l'habitude de baisser les bras :

Sur une form, un cadre Frame1
Dans ce cadre : une filelistbox File1 de largeur et de hauteur, chacune, plus grande que le cadre
Hors du cadre :
- une barre de défilement horizontal Hscroll1
- 1 barre de défilement vertical Vscroll1

et le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub Form_Activate() Frame1.BorderStyle = 0 With HScroll1: .Min = 0 .Max = File1.Width - Frame1.Width - 255 '255 est la largeur approximative ' de l'ascenseur vertical .SmallChange = 10 End With With VScroll1: .Min = 0 .Max = File1.Height - Frame1.Height .SmallChange = 10 End With File1.Move 0, 0 End Sub   Private Sub HScroll1_Change() File1.Left = -HScroll1.Value End Sub   Private Sub HScroll1_Scroll() HScroll1_Change End Sub   Private Sub VScroll1_Change() File1.Top = -VScroll1.Value End Sub   Private Sub VScroll1_Scroll() VScroll1_Change End Sub

---

En effet c'est une solution de déplacer un control dans un autre qui cache l'excedent. C'est si simple et pourtant il fallait y penser :lol:

Je l'savait, je l'savait

:roll:

Merci pour cette solution, mais j'ai prefere implémenter la filelistbox à partir d'une listbox.