piloter 12 listBox avec un seul scroll

Question

Bonjour à tous,

Dans un userForm j'ai 2 listBox multicolonnes
Dans la 1ere j'affiche l'intitulé de mes colonnes et dans la seconde les données correspondantes.

Comme le nombre de colonne ne me permet de toutes les afficher dans la listBox j'ai un scroll horizontal (dans les intitulés et dans les données).
J'aimerais lorque je me sers du scroll horizontal pour faire défiler mes colonnes dans ma listBox de données la listBox des intitulés se déplace à l'identique.

Quelqu'un peut-il m'aider ?
Merci d'avance.

cs_lim · Answer

Bonjour,

Je ne crois pas que cela soit possible.
Pourquoi ne pas utiliser une listview à la place ?

@+LIM

lediablo · Answer

bonjour
je crois que c'est possible avec sendmessage
quand tu fait un clic sur ta listbox tu peut utiliser sendmessage pour faire la même sélection dans l'autre liste en défilant la scrollbar
ou bien dans un timer avec interval 100 tu récupère la position du scrol dans la 1ere liste et tu l'assigne à l'autre scrol de l'autre liste.


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

lediablo · Answer

exemple de sendmessage en vb6 (à toi de changer list1 par ta listbox et text1 par ton textbox :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Const LB_FINDSTRING = &H18F
Private Sub Form_Load()
    With List1
        .AddItem "Computer"
        .AddItem "Screen"
        .AddItem "Modem"
        .AddItem "Printer"
        .AddItem "Scanner"
        .AddItem "Sound Blaster"
        .AddItem "Keyboard"
        .AddItem "CD-Rom"
        .AddItem "Mouse"
    End With
End Sub
Private Sub Text1_Change()
    List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub


Quand on pose une question on est con 5 minutes,Quand on ne la pose pas on le reste toute sa vie  (mon site)

Renfield · Answer

12 Listbox....

le listview ou le datagrid sont la pour ca !


si tu persiste, voir propriété TopIndex

Renfield - Admin CodeS-SourceS - MVP Visual Basic	& Spécialiste des RegExp

lebug06 · Answer

Merci pour toutes ces infos.
Je vais essayer de m'en sortir.
Sur le scroll vertical je vois à peu prés c'est le scroll horizontal qui me pose problème.
Je vais aussi voir le "datagrid" que je ne connais pas.
Merci encore

Piloter 12 listBox avec un seul scroll

5 réponses

Votre réponse

Discussions similaires