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

cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 - 8 nov. 2002 à 07:57
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 8 nov. 2002 à 16:57
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

BasicInstinct Messages postés 1471 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 12
8 nov. 2002 à 09:25
t'as pas 1 propriete scrollbar dans tes textbox (désolé j'ai pas VB sous les yeux)
0
cs_PROGRAMMIX Messages postés 1133 Date d'inscription mercredi 2 octobre 2002 Statut Membre Dernière intervention 24 juillet 2011 3
8 nov. 2002 à 11:24
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
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
8 nov. 2002 à 16:57
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
Rejoignez-nous