Discussion :

[Ender]

Bonjour,

J'ai deux textbox multilignes (qui n'ont rien à voir avec mes précédents messages )
J'ai aussi inséré un ScrollBar.
Comment dois-je faire pour faire défiler le texte des deux textbox à partir de la ScrollBar ?

Je ne sais pas si ça peut servir, mais il y a autant de lignes dans chaque TextBox.

Merci

[ouskel'n'or]

Faudrait simuler les flèches hautes et basses dans ton textbox (!)

Pour chaque déplacement de l'ascenseur, parcourir les lignes jusqu'au bon N°
Avec Sendkey, peut-être ???

Ou un tableau de tes lignes de texte, en connaître le nombre (= Ubound(LeTableau) et n'afficher que la donnée correspondant à l'index du tableau fourni par le scollbar

Juste des idées

[jmfmarques]

Une fois n'est pas coutume et je dois aller faire ma sieste

Alors, et en saluant Ousk car le Sendkeys est ici la socution, mais en évitant l'analyse des flêches, pour ne me consacrer qu'à la scrollbar :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub VScroll1_Change()
 Text1.SetFocus
 Text1.SelStart = 0
 For i = 1 To VScroll1.Value
   SendKeys "{DOWN}"
   DoEvents
 Next
 Text2.SetFocus
 Text2.SelStart = 0
 For i = 1 To VScroll1.Value
   SendKeys "{DOWN}"
   DoEvents
 Next
End Sub

Précision : ne marche qu'en cliquant sur les petites flêches de la scrollbar.

Si vous voulez la "totale" .... je vous laisse deviner ce qu'il convient d'ajouter.

Bonne sieste à ceux qui, comme moi, auront la chance de la faire

[Ender]

merci pour le code, jmfmarques.
par contre le raffraichissement est pas top
Peut-être est-ce du au fait que les textbox récupèrent le focus, puis le perdent, etc....

[ouskel'n'or]

le raffraichissement est pas top

C'est à dire ?

[Ender]

Les Textbox clignotent (enfin, si on appuie rapidement sur les flèches de la ScrollBar)
Et puis, j'ai essayé de changer le point de départ de selStart. jmfmarques l'a mis à 0.
Le problème, c'est que mon Textbox peut afficher 14 lignes. Ce qui veut dire que si je veux voir la 15è, il faut cliquer 15 fois sur la flèche du bas. Ensuite, c'est bon, mais bon...
Donc comme j'ai 48 caractères par ligne dans le Textbox, et qu'on peut voir 14 lignes, j'ai mis selStart à 672 (14*48).
Bien m'en a pris, le PC a ramé comme un fou, j'ai eu du mal à stopper la macro, et quand ce fut fait, tout mon code a défilé, enfin, c'était un bor... sans nom (excusez moi )