Newsgroup: it.comp.lang.visual-basic
Titolo: [?] RichtextBox e max lunghezza testo

Ciao, risolti i problemi di colore ecc...  GRAZIE!
(anche con questa risposta di Luca 
http://tinyurl.com/3hffz
  --> TNX!)
Una domanda pratica che forse mi sapete correggere al meglio:
Le mie ex 20 textbox ora tutte in RTB colori e formattazioni varie, ricevono
dati che immetto con il classico Seltext.
Queste però dopo un po' evidentemente si saturano rallentando il programma.
Prima tagliavo le textbox con un 20'000 caratteri, anche per evitare
l'overflow, con le ultime linee arrivate e tagliavo queste textbox con:
    If Len(TextBox.Text) > 20000 Then
        TextBox.Text = Right(TextBox.Text, 18000)
    End If
Un margine di circa 20000 caratteri (20000:80chr/linea=~250 linee) ma ora
con le RTB come sarebbe meglio impostare il tutto nel miglior veloce metodo?
Ora sto facendo con:
    If Len(Rtb.Text) > 20000 Then
        Rtb.SelText = Right(Rtb.SelText, 18000)
    End If
Funziona ma posso migliorare con Sellenght e simili per ottenere "meglio"
sti ultimi ~20'000 caratteri?
Grazie per qualsiasi consiglio.
Anto
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 100,000 Newsgroups - 19 Different Servers! =-----

 Ora sto facendo con:
Per me è una masturbazione mentale inutile.
Perchè dovresti troncare il testo in una RTB?
Che senso ha?
E poi carichi tutte le RTB contemporaneamente?
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 E poi carichi tutte le RTB contemporaneamente?
Ciao Fabio, grazie info, purtroppo devo per forza tagliarle, le RTB (sono
una ventina) ricevono delle line da 80chr, circa da 1 a 10 al secondo a
volte anche di piů... da un sistema hardware esterno.
Questo monitoraggio comunque dovrebbe servire al massimo nell'ora precedente
dato che posso per ogni finestra collegarmi al sistema esterno e richiedere
l'eventuale "momento".
Ho fatto un paio di copia incolla per riempire le rtb e oltre che a blocchi
pazzeschi del sistema, in un attimo sono arrivato che all'uscita del
programma questa ventina di rtb salva file da circa >2MB l'uno, quindi >40MB
da caricare al prossimo start del programma... e dato che carico le rtb con:
...cut...
    Linea = ""
    testo = ""
    Open App.Path & "\" + Schermo For Input As #2
    Do While Not EOF(2)
        Line Input #2, Linea
        testo = testo + Linea & vbCrLf
    Loop
    Close #2
    testo = Left(testo, Len(testo)) ' - 2)
...cut...
il programma si stinca per minuti con il mio P3.2GHZ/2GB... sul primo RTB da
3MB prima di proseguire al prossimo rtb non oso provarlo sul P500 dove gira
solitamente... impossibile... quella si che č una MM.
Anche caricandoli piů velocemente, inoltre questi 20rtb con ognuno dentro
tutto sto popo' di roba... il programma si impalla quasi completamemente...
mettendolo a soli 20k o 30k per box, riesco a gestire tutti i 20 rtb senza
problemi di rallentamenti.
tnx per eventuale consiglio da MM...hi :-))
bye


>        Rtb.Text = Right(Rtb.Text, 18000)
perdo tutta la formattazione precedente.
Devo selezionare il testo poi da cancellare col SELTEXT....
Non ci arrivo...come mi si consiglierebbe di fare?
TNX!


>> ora come potrei cancellare la parte del testo selezionato?
Si potrebbe cancellare SOLO una parte selezionata senza intaccare la
formattazione del testo nella rtb?? non vedo/trovo il comando...
GRAZIE PER QUALCHE CONSIGLIO!
Anto


 formattazione del testo nella rtb?? non vedo/trovo il comando...
.SelText = ""
Bye, G.


Accidenti... della serie che cercavo chissà cosa...
posso solo dirti GRAZIE della dritta e scusate la banalità quindi risolta
con:
Console.SelStart = 0
Console.SelLength = Len(Console.Text) - 2000
Console.SelText = ""
Messo tra un "if len testo >x" per mantenere gli ultimi caratteri della
finestra.
Oso chiedere ancora una cosetta... un dubbio che ho ancora da risolvere che
non riesco a trovare sul msn:
Quale .Sel... mi riporta a zero tutte le impostazioni di una richtextbox,
cioè esiste un default e questo da dove viene preso?
Ciao grazie!


 richtextbox, cioč esiste un default e questo da dove viene preso?
Ahhh, la chiarezza...
Cosa sarebbero "tutte le impostazioni"?
Il testo?
Il font?
Le caratteristiche del font?
Il colore?
... e altre 1000 cose...

 richtextbox, cioè esiste un default e questo da dove viene preso?
Non esiste. Anche se selezioni tutto e lo cancelli, ti mantiene le
impostazioni degli ultimi caratteri e paragrafo selezionati... mi pare :-).
Una maniera semplice per fare quello che vuoi è di assegnare
/una tantum/ le impostazioni che ti servono, cancellare tutto e salvare
come file .RTF, che a questo punto sarà vuoto, con le sole impostazioni
chiamandolo per esempio "Default.rtf".
Quando vuoi fare un "Clear", ti limiti a caricare quel file col semplice
    RichTextBox1.LoadFile App.Path &"\Impostazioni\Default.rtf", rtfRTF
Bye, G.

     RichTextBox1.LoadFile App.Path &"\Impostazioni\Default.rtf", rtfRTF
Già che c'ero ho cambiato come nel tuo esempio anche il load delle 20 rtb.
ciao saluti e grazie dell'info.
Anto
