Listbox+scrollbox horizontale

Question

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)

jmfmarques · Answer

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

jmfmarques · Answer

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

cs_lacomm · Answer

salut,
ne suffirait-il pas de mettre une valeur non nulle dans la propriété COLUMN de la listbox ?

cs_lermite222 · Answer

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

cs_lermite222 · Answer

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

cs_lacomm · Answer

oui, mais si tu mets columns = 2 tu peux avoir tout ta liste en 2 colonnes, donc plus besoin d'ascenceur !

jrmm10738 · Answer

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é

jmfmarques · Answer

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)

jrmm10738 · Answer

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

jrmm10738 · Answer

Et mince je fonctionne sur VBA. Je croyais que c'était la même chose, désoler de vous avoir fais perdre votre temps je vais poster sur l'autre section.

Listbox+scrollbox horizontale

10 réponses

Votre réponse

Discussions similaires