Discussion :

[raphoux]

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

[Delbeke]

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

[avigeilpro]

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

[Delbeke]

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

[jmfmarques]

Bonjour Delbeke.

Tu as raison et tort à la fois.
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[avigeilpro]

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