jerome57440
Messages postés40Date d'inscriptionlundi 3 mars 2008StatutMembreDernière intervention 8 juillet 2008
-
14 mai 2008 à 15:53
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
14 mai 2008 à 16:35
bonjour,
Dans mon programme j'ai 3 listebox que j'ai rempli a partir d'un fichier text (une avec le nom,une avec la date,une avec l'heure) j'aimerais que lorsque je scroll une listbox les autres suivent pour ne pas decaler la lecture pour l'utilisateur.
Serait-il possible de réaliser cela avec un evenement?J'ai remarqué qu'il y avait un evenemtn scroll dans les propriété de la listbox
Merci d'avance
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 14 mai 2008 à 16:11
salut à tous
je pense qu'il y a moyen de boucler sur l'évènement Scroll, mais je ne me suis pas tracasser (honte à moi ausi).
mais bon, c'est un début pour notre ami demandeur :
Private Sub Form_Load()
Dim i As Long, j As Long
For j = 0 To 2
For i = 1 To 15
List(j).AddItem "Ligne " & CStr(i)
Next i
Next j
End Sub
Private Sub List_Scroll(Index As Integer)
Select Case Index
Case 0
List(1).TopIndex = List(0).TopIndex: List(2).TopIndex = List(0).TopIndex
Case 1
List(0).TopIndex = List(1).TopIndex: List(2).TopIndex = List(1).TopIndex
Case 2
List(0).TopIndex = List(2).TopIndex: List(1).TopIndex = List(2).TopIndex
End Select
End Sub
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 14 mai 2008 à 16:19
Re,
Ah oui en utlisant les groupe de controles.
Bon merci [auteur/RENFIELD/2359.aspx Renfield]d'avoir effacer. je vais essayer de proposer qqch d'utile alors ca va me changer
en se basant sur le code de [auteur/MORTALINO/647037.aspx mortalino](salut)
Private Sub List1_Scroll(Index As Integer)
Dim Li As ListBox
For Each Li In List1
If Li.Index <> Index Then Li.TopIndex = List1(Index).TopIndex
Next
End Sub , ----
[code.aspx?ID=41455 By Renfield]
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 14 mai 2008 à 16:28
Re,
>[auteur/RENFIELD/2359.aspx Renfield] : 1:Merci, 2:Tu as raison merci pour la correction
>[auteur/MORTALINO/647037.aspx mortalino] : Non je ne souhaite pas boucler sur tout les listbox du formulaire, juste sur ceux du groupe de controle
mortalino
Messages postés6786Date d'inscriptionvendredi 16 décembre 2005StatutMembreDernière intervention21 décembre 201118 14 mai 2008 à 16:34
Ok, beh dans ce cas, tu viens de m'apprendre quelque chose.
Je ne savais pas que si List(Index), en faisant For each .. in List bah que ça ne boucler que sur le groupe de contrôles.