Comment afficher les dernières lignes d'un TextBox multiligneRésolu

Question

Bonjour &#224; tous,

J'utilise un TextBox Multiligne pour afficher des messages aux utilisateurs.
Les messages peuvent &#234;tre assez long et seule la fin est vraiment utile.

Remplir le textbox ne me pose pas de probl&#232;me, mais j'aimerais que les derni&#232;res lignes soient affich&#233;es par d&#233;faut (et non les premi&#232;res lignes).

Quelqu'un sait-il comment faire scroller automatiquement les TextBox ?
Une API peut-&#234;tre ?

Merci d'avance

Najdar · Accepted Answer

J'ai trouv&#233; la solution avec les API ! 

Pour ceux que &#231;a int&#233;resse :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_VSCROLL = &H115
Private Const SB_BOTTOM = 7

SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0

Gobillot · Answer

Text1.SelStart = 65535

Daniel

NHenry · Answer

Text1.SelStart=len(Text1.Text)

Un peu mieu



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

Najdar · Answer

C'&#233;tait aussi ma premi&#232;re id&#233;e, mais le cela ne fonctionne pas.
Le cuseur est bien &#224; la fin du texte, mais cela ne rend pas la fin du texte visible.
Seul le d&#233;but est affich&#233; et l'on ne voit pas le curseur. Si l'on scroll vers le bas le curseur est bien &#224; la fin du texte...

Gobillot · Answer

c'est ce que j'ai dis et en plus j'&#233;vite une fonction.

Daniel

Gobillot · Answer

pas tout compris, tu dis que &#231;a ne marche pas, en horizontal ou en vertical ? si la derni&#232;re ligne n'est pas la plus grande effectivement le curseur ne sera pas positionn&#233; au maximum vers la droite, mais c'est normal parce que c'est la ligne en cours qui doit &#234;tre visible.
n&#233;anmoins je te donne une autre m&#233;thode pour agir sur les scrollbars.

Private Const WM_HSCROLL = &H114
Private Const WM_VSCROLL = &H115
Private Const SB_TOP = 6
Private Const SB_BOTTOM = 7
Private Const SB_LEFT = 6
Private Const SB_RIGHT = 7

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

SendMessage Text1.hwnd, WM_VSCROLL, SB_BOTTOM, 0
SendMessage Text1.hwnd, WM_HSCROLL, SB_RIGHT, 0

Daniel

Gobillot · Answer

oups encore en retard !

Daniel

Najdar · Answer

Merci Gobillot,

Mon probl&#232;me &#233;tait avec le scroll vertical.

Comment afficher les dernières lignes d'un TextBox multiligne

8 réponses

Discussions similaires