Comment faire défiler une txtBox sur base d'une autre

Signaler
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
-
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
-
Voilà, je voudrais comparer visuellement 2 textes théoriquement les mêmes.
Chacun d'eux est placé dans une textbox.
Je voudrais que lorsque j'utilise l'ascenseur de l'une, la seconde défile de la même manière afin d'avancer en même temps dans les temps textes.

3 réponses

Messages postés
1471
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
t'as pas 1 propriete scrollbar dans tes textbox (désolé j'ai pas VB sous les yeux)
0
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
Sauf erreur de ma part, je n'en ai pas vue.
Sinon effectivement ça aurait été tout simple...

Je demande s'il ne faudrait pas jouer avec une api qui récupèrerait les déplacements d'une des textbox pour l'appliquer à l'autre. Mais....
0
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
1. Tu te déplaces dans les TextBox avec les flèches et tu mets
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Text2.SelStart = Text1.SelStart
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
Text1.SelStart = Text2.SelStart
End Sub

2. Tu utilises l'ascenseur d'une TextBox et tu cliques dans le texte avec
Private Sub Text1_Click()
Text2.SelStart = Text1.SelStart
End Sub
Private Sub Text2_Click()
Text1.SelStart = Text2.SelStart
End Sub

La synchro n'est pas parfaite mais presque.
0