Discussion :

[Elbarto]

Bonjour,

j'ai un problème très simple:

j'ai une textbox multiligne qui se remplit au fur et à mesure de texte, du coup un scrollbar verticale se crée,

et j'aimerai que la derniere ligne s'affiche, or par défaut dans une texbox la scrolbar ne bouge pas ( ascenseur reste en haut pour le curseur ), c'est toujours la premiere ligne qui s'affiche,

comme ma texbox me sert d'affichage pour le résultat j'aimerai qu'automatiquement la derniere ligne s'affiche ( scrolbar tout en bas au niveau du curseur ) mais je ne trouve pas la methode pour le controle scrollbar de la textbox, quelqu'un sait comment faire ?

Merci

[KibitO]

Et en augmentant la taille de ta textbox ?

[Ditch]

Et en augmentant la taille de ta textbox ?

Le probleme reviendra au meme si un resultat est encore plus long que long (j'devrais faire publicitaire moi).

Je sais qu'en javascript c'est possible (mais comment?) mais le probleme est que si le client désactive le javascript, c'est foutu :s

[Elbarto]

attention le langage c'est VB.Net pour une application Windows

mais j'ai trouvé la solution tout seul, c'est très simple, il suffit de selectionner le dernier index du texte ( la derniere position avec une longueur egale à txtbox.text.lenght ) ce qui placera en fait le curseur de saisie de la textbox à la derniere ligne

ensuite il faut utiliser la méthode "ScrollToCaret()" du controle textbox qui permet de faire descendre l'ascenseur à la position du curseur de saisie de la textbox,

tout ceci aura lieu automatiquement en mettant ce code dans l'evenement "textchanged" de la textbox, dès que le texte de la textbox se modifie ( remplissage ) ben hop l'ascenseur se repositionne à la derniere ligne

cette astuce est nikel quand on utilise une textbox qui affiche le log d'une opération qui se déroule progressivement ( scannage des fichiers sur un disque dur et affichage au fur et à mesure des résultats dans la textbox, il faut alors que l'ascenseur descende à la derniere ligne )

voici le code source:

Code :

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

1
2
3
4
5
6
Private Sub txtLog_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtLog.TextChanged
        txtLog.SelectionStart = txtLog.Text.Length
        txtLog.SelectionLength = txtLog.Text.Length
        txtLog.ScrollToCaret()
        txtLog.Refresh()
End Sub

[Ditch]

Oops sorry. Defaut d'habitude