faire un "auto-scroll" dans une TextBox... [VB] - VB/VBA/VBS - Programmation
Marsh Posté le 14-05-2002 à 13:35:56
A placer sur l'évènement Change d'un TextBox nommé "ReportText" placé dans un Form...
Me.ReportText.SelLength = 0
If Len(Me.ReportText.Text) > 0 Then
If Right(Me.ReportText.Text, 1) = vbCrLf Then
Me.ReportText.SelStart = Len(Me.ReportText.Text) - 1
Exit Sub
End If
Me.ReportText.SelStart = Len(Me.ReportText.Text)
End If
Me.ReportText.Refresh
Oh joie bonheur !
[jfdsdjhfuetppo]--Message édité par Kolf le 14-05-2002 à 13:36:23--[/jfdsdjhfuetppo]
Marsh Posté le 15-05-2002 à 14:19:45
oups non, g rien dit, j'efface ce que j'ai mis
[jfdsdjhfuetppo]--Message édité par KarLKoX le 15-05-2002 à 14:20:53--[/jfdsdjhfuetppo]
Marsh Posté le 14-05-2002 à 10:36:08
Salut
J'effectue un traitement de données et j'en affiche le déroulement dans une TextBox... quand le contenu dépasse la taille de la TextBox, ca créé une barre de défilement verticale, jusque là c très bien, mais le prbl c que cette barre reste en haut et moi j'aimerais qu'elle descende en fonction de l'ajout du texte pour que l'utilisateur puisse voir les dernières infos ajoutées dans la TextBox. J'ai mis la propriété "AutoRedraw" de la feuille sur True mais ca ne change rien au prbl
une idée ?
merci d'avance