[VB] faire un "auto-scroll" dans une TextBox...

faire un "auto-scroll" dans une TextBox... [VB] - VB/VBA/VBS - Programmation

Marsh Posté le 14-05-2002 à 10:36:08    

Salut :hello:
 
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 :)

Reply

Marsh Posté le 14-05-2002 à 10:36:08   

Reply

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]

Reply

Marsh Posté le 14-05-2002 à 14:00:13    

je v tester ca, ca me semble bien :)
 
merci beaucoup !! :)

Reply

Marsh Posté le 14-05-2002 à 14:09:21    

oh oui, ca marche, magnifique ;)

Reply

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]

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed