TextBox automatiqueRésolu

Question

Salut, j'aimerai que mon TextBox défile automatiquement verticalement à chaque nouvelle ligne qui s'ajoute (et qui donc ne serait pas visible à moins d'utliser sa souris, ce que je veux éviter). J'ai trouvé comment faire avec un ListBox mais pas avec un TextBox, je sèche (c'est peut-être simple mais j'ai pas trouvé ).

Merci pour vos réponses

P.S. je n'ai pas de code à montrer je pense que c'est assez explicite sans

NHenry · Accepted Answer

Bonjour Dans ma source LectMP3, j'utilise le défilement automatique : Text.SelectionStart=Text.Text.length Text.ScrollToCaret Et ça marche. Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation) NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_DARKSIDIOUS · Answer

Il te suffit de mettre le selstart à la fin de ton texte :
Text1.SelStart = Len(Text1.Text)

Vertefeuille · Answer

tu veux dire Text1.SelectionStart = Len(Text1.text)  On est en .net si je me suis pas tromper de thème.
J'ai essayé mais rien n'y change... il n'existe pas qqch avec la scrollBar verticale ?

cs_DARKSIDIOUS · Answer

arf, désolé, pas fait attention que c'était du .net

crocejf2000 · Answer

Salut,

Une solution alternative serais d'ajouter ton texte au début de la textbox.

private sub AddLine(sChaine as string)

   textbox.text = sChaine & vbcrlf & textbox.text 
   textbox.refresh()

end sub

A+,Hart

Vertefeuille · Answer

Oui c'est une solution mais ce que j'aimerais c'est faire comme une fenêtre où les événements s'affichent un après l'autre( comme pour débuger) et ça ferait bien mieux si la scrollBar bougeait toute seule

Vertefeuille · Answer

comme lorsqu'on clique sur "afficher le Rapport" dans VirtualDub pour ceux qui connaissent

NHenry · Answer

Bonjour TextBox.ScrollToCaret, sauf erreur de ma part. Il est plus facile de batiser quelqu'un que de la convertir. (surtout en programmation) NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Vertefeuille · Answer

Salut, oui j'ai déjà essayer ça mais ça ne fait strictement rien..
j'avais mis :
 
Private sub TextBox1.TextChanged (...
          TextBox1.ScrollToCaret
end sub

¨mais aucun effet

Vertefeuille · Answer

merci ça fonctionne avec la séléction puis ScrollToCaret merci !!!!!

TextBox automatique

10 réponses

Votre réponse

Discussions similaires