autoscroll in vb6

[Zenon]

Scusate se riesumo la mia discussione, ma ne ho bisogno urgentemente x lavoro.

Ho un VB 6.0.
Ricevo via com seriale una serie di caratteri che metto nella variabile 'str$' e che riporto sul mio "terminale" di nome Term e di tipo TextBox. Utilizzo la chiamata
Term.Text = Term.Text & str$

Ho a disposizione 21 righe e ad ogni carattere vado a capo col 'vbCrLf', quindi dopo 21 caratteri appare la scrollbar ma senza scendere automaticamente. Invece io ho necessità di vedere sempre sul textbox le ultime cose arrivate.
Come devo fare?

Mi sfugge qualcosa... se mi sapete aiutare, grazie!

[oregon]

Prova con

Term.Text = Term.Text & str$
Term.SelLength = Len(Term.Text)

[Zenon]

Grazie x la risposta.
La funzione SelLenght mi sembra ritorni il numero della riga scritta sul Term. Ma questo non mi fa scendere la schermata in modo da vedere le ultime cose.
Cosa devo aggiungere?

[oregon]

Veramente questo codice fa scendere per vedere quello che aggiungi ...

[gibra]

Originariamente inviato da Zenon
Grazie x la risposta.
La funzione SelLenght mi sembra ritorni il numero della riga scritta sul Term. Ma questo non mi fa scendere la schermata in modo da vedere le ultime cose.
Cosa devo aggiungere?

Ma prima di rispondere, l'hai provato il codice?
Ovviamente No, altrimenti non avresti fatto la domanda.

Riguardo a SelLenght basta che ti studi la guida e vedrai che il tuo

mi sembra

è sbagliato.

Ciao

[Zenon]

Innanzitutto ringrazio chi mi ha risposto. Poi... rincoglionito si, ma non troppo!
l'ho provato sellenght prima di riscrivere sul forum, ma continua a darmi il numero delle righe di Term utilizzate, e non lo sposta verso il basso x leggere l'ultima riga scritta...
Non vorrei fosse qualche settaggio del textbox da modificare...

[Zenon]

ok, rincoglionito e basta....
ora funziona... anche se il fatto che mi selezioni tutto quanto il testo mentre lo scrive non è che mi entusiasmi tanto....

[gibra]

Originariamente inviato da Zenon
ok, rincoglionito e basta....
ora funziona... anche se il fatto che mi selezioni tutto quanto il testo mentre lo scrive non è che mi entusiasmi tanto....

Hai ragione, se si preme il tasto freccia seleziona tutto il testo a partire dalla posizione del cursore.

Prova così:

    Text1.SelLength = Len(Text1.Text)
    Text1.SelStart = Len(Text1.Text)
    SendKeys "{DOWN}"

Ciao

[Zenon]

Ciao
Funziona bene ora.

Provando e riprovando alla fine ho scoperto che funziona ugualmente anche utilizzando solo il comando
Text1.SelStart = Len(Text1.Text)

Le altre due righe le ho cancellate; ci sono problemi a far così secondo voi?
Grazie ancora

[gibra]

No, problemi non mi pare che ve ne siano.
Ma con SendKeys 'vedrai' il cursore sull'ultima riga (senza non lo vedi) e secondo me è meglio che si veda, altrimenti sembra che sia chissà dove.
Insomma, è un segno tangibile che conforta l'utente.


Ciao