Discussion :

[olivier57b]

Bonjour,

Je voudrais remplir une textBox, mais je voudrais que le texte défile automatiquement vers le bas lorsqu'il dépasse le nombre de lignes de la TextBox (un peu comme dans l'installation de Nero).

Merci de votre aide,

Olivier57b.

[Mathieu Francesch]

Bonjour,

Ne sachant pas exactement ce que vous vouliez, j'ai dû installer Nero
J'en arrive à la conlusion suivante :

Nous avons besoin d'un TextBox avec la propriété Multiline à True et Scrollbars vertical.

En ce qui concerne le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim fichiers() As String = Directory.GetFiles("C:\WINDOWS")
        Dim curseur As Integer = 0
        TextBox1.Focus()
        For Each fichier As String In fichiers
            System.Threading.Thread.Sleep(100)
            TextBox1.Text += Path.GetFileName(fichier) + vbNewLine
            TextBox1.Refresh()
            TextBox1.SelectionLength = 0
            TextBox1.SelectionStart = TextBox1.Text.Length
            TextBox1.ScrollToCaret()
        Next

Voilà, j'espère que ce répond à votre demande.
PS : Le sleep n'est pas nécessaire ...

Math

[olivier57b]

Merci,

j'ai essayé et ça marche.

Olivier57b.