Bonjour,

je voudrais insérer une schrollbar horizontal sur ma listbox, située sur un userform, car la moitié de mes éléments sont trop long. J'ai bien vu des postes a ce sujet mais j'arrive pas à faire fonctionner les codes.
Donc si quelqu'un avait la patiente de m'expliquer ça serait simpa.
Merci.
(Je fonctionne sous win2000 pro, je sais pas si ça a une incidence)

Bonjour,

Je ne suis pas l'auteur du code qui suit (qui fait ta "chose")

Sur une form : une listbox List1 et un bouton Command1

Code :

Private Const LB_SETHORIZONTALEXTENT = &H194
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Activate()
  For i = 1 To 100
    List1.AddItem "aaaaaaaaaaaaaaaaaaaaaaaavvvaaaaaaaaaaaaaaaaaaaaaaaabbbbb"
  Next
End Sub

Private Sub Command1_Click()
  HorizontalSbar List1
End Sub

Private Sub HorizontalSbar(toto As Control)
  Dim lngReturn As Long
  Dim lngExtent As Long
  lngExtent = 4 * (toto.Width / Screen.TwipsPerPixelX)
  lngReturn = SendMessage(toto.hwnd, LB_SETHORIZONTALEXTENT, lngExtent, 0&)
End Sub

et dans un module :

Private Const LB_SETHORIZONTALEXTENT = &H194
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Form_Activate()
  For i = 1 To 100
    List1.AddItem "aaaaaaaaaaaaaaaaaaaaaaaavvvaaaaaaaaaaaaaaaaaaaaaaaabbbbb"
  Next
End Sub

Private Sub Command1_Click()
  HorizontalSbar List1
End Sub

Private Sub HorizontalSbar(toto As Control)
  Dim lngReturn As Long
  Dim lngExtent As Long
  lngExtent = 4 * (toto.Width / Screen.TwipsPerPixelX)
  lngReturn = SendMessage(toto.hwnd, LB_SETHORIZONTALEXTENT, lngExtent, 0&)
End Sub

 

Pardon ! Oublie le module complètement ! Tout dans la form et oublie le reste...

bonjour,
salut jmfmarques  , j'ai testé le code soumis et il est est nickel. (Je me le garde)
A+
louis

Avec column =non nul : plus de scroll vertical ??

A+

Je dois vraiment nul, mais le programme bloque au niveau de la ligne
lngExtent = 4 * (toto.Width / Screen.TwipsPerPixelX)
car lngextent=0
je pourtant recréé un nouveau classeur avec un userform et le bouton comme il a été indiqué

jrmm10738

1) es-tu vraiment sous VB6 ?
2) comment s'appelle ta listbox ?
3) montre-nous ce que tu as écrit.

Il n'y a absolument aucune raison pour que ce code ne marche pas sous VB6 (section dans laquelle tu te trouves)

a vrai dire je sais pas. Je travaille sur excel donc je travaille pas sur VB6???