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

Question

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.

BasicInstinct · Answer

t'as pas 1 propriete scrollbar dans tes textbox (désolé j'ai pas VB sous les yeux)

cs_PROGRAMMIX · Answer

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....

cs_rene38 · Answer

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.

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

3 réponses

Discussions similaires