Discussion :

[joooooo]

Savez-vous s'il est possible de créer 2 listes avec une barre de défilement en commun?
Ca servirait pour afficher le temps dans une première liste puis des températures dans une 2ème liste accolée à la première.

Ou alors, créer une liste à 2 colonnes, mais je ne sais pas si c'est possible aussi.

Merci !

[ProgElecT]

Il serai sans doute mieux d'utiliser un MSFlexGrid ou encor mieux un MSHFlexGrid, mais si tu tiens à 2 ListBox.
Donc 2 ListBoxs indexées sur un Form

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
Option Explicit
 
Private Sub Form_Load()
List1(0).Move 120, 120, 2265, 2790
List1(1).Move 2100, 120, 2025, 2790
Me.Height = 3405: Me.Width = 4350
List1(1).ZOrder
Dim T As Integer
For T = 0 To 50
 List1(0).AddItem CStr(T) & Chr(T + 40)
 List1(1).AddItem CStr(T) & Chr(T + 50)
Next T
End Sub
 
Private Sub List1_Click(Index As Integer)
'pour une selection(video inverse) identique
If Index = 1 Then
 List1(0).ListIndex = List1(1).ListIndex
 Else
 List1(1).ListIndex = List1(0).ListIndex
End If
End Sub
Private Sub List1_Scroll(Index As Integer)
'le deplacement des lignes synchro
If Index = 1 Then
 List1(0).TopIndex = List1(1).TopIndex
 Else
 List1(1).TopIndex = List1(0).TopIndex
End If
End Sub

[zazaraignée]

Pour tester, j'ai mis la List2 sur la List1 afin de cacher la scrollbar de la List1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To 25
        List1.AddItem i + 1           ' affiche des chiffres
        List2.AddItem Chr(i + 65)     ' affiche des lettres
    Next
End Sub
 
Private Sub List2_Scroll()
    List1.TopIndex = List2.TopIndex
End Sub