Newsgroup: it.comp.lang.visual-basic
Titolo: [?] RichTextBox Loadfile non legge/colora

Ciao... ho proprio bisogno di un consiglio:
sto tentando di caricare dei file anche da 800k (formato TESTO classico
ASCII.txt) in una richtextbox ma i colori che imposto non vengono messi a
tutto il file, tante volte solo la metà...
sicuramente ed evidentemente canno il codice che qui trascrivo... dove
sbaglio?
        Console.LoadFile (App.Path & "\mon\testo.txt")
        Console.SelStart = 0
        Console.SelLength = Len(Console.Text)
        Console.SelColor = RGB(80, 80, 80)
        Console.SelItalic = True
        Console.SelText = Console.Text
        Console.SelItalic = False
        Console.SelColor = vbBlack
ps: se metto il rtfRtf o rtfText il testo manco si carica....
Premetto che questo è uno dei tentativi, che dalla disperazione ho
copia/incolla sul messaggio dopo aver provato a togliere mettere spostare
ecc....
Per dare l'idea di cosa deve fare: copiare un semplicissimo ASCII.TXT da 0 a
800k in formato ITALICO GRIGIO e poi riprendere il NERO/NORMALE per il
prossimo testo che aggiungo.
GRAZIE.. ma non trovo dove sbaglio...
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! =-----

credo che dopo il load file dvresti mettere una pausa.
Può darsi che il programma non ha caricato tutto il testo e ti colora solo
quello caricato.
Una conferma fuoi averla mettendo un pulsante che ti faccia le operazioni
dopo il loadfile
esempio
Private Sub Form_Load()
        Console.LoadFile (App.Path & "\mon\testo.txt")
End Sub
Private Sub Command1_Click()
            Console.SelStart = 0
        Console.SelLength = Len(Console.Text)
        Console.SelColor = RGB(80, 80, 80)
        Console.SelItalic = True
        Console.SelText = Console.Text
        Console.SelItalic = False
        Console.SelColor = vbBlack
End Sub
e poi controlla quel vbblack che non vorrei fosse la causa dell'errore.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 End Sub
Effettivamente è qui dentro la gabola... ho provato varie modifiche ma
sempre idem
Il testo non me lo cambia tutto e la metà finale resta in NERO/NORMALE...
Ma che strano... è un testo ascii.
Cosa potrebbe essere? non capisco e non vedo l'errore!
ciao e grazie!


Prova cosě (č codice buttato iů alle 2 di notte quasi... quindi nessuna
garanzia)
Private Sub Form_Load()
        Console.LoadFile (App.Path & "\mon\testo.txt")
End Sub
Private Sub Command1_Click()
        Console.SelStart = 0
        Console.SelLength = Len(Console.Text)
        Pause 1
        Console.SelColor = RGB(80, 80, 80)
        Console.SelItalic = True
        Console.SelText = Console.Text
        Console.SelItalic = False
        Console.SelColor = vbBlack
End Sub
'funzione di pausa
Public Sub Pause(sec As Single)
    Dim t As Single
    t = Timer
    While Timer <= t + sec
        DoEvents
    Wend
End Sub


 End Sub
Grazie in ogni caso per questa interessante funzione timer.... anche se
frutto delle ore piccine... son sempre le migliori....:-)))
comunque mi pare di aver trovato la gabola... e che gabola... accidenti...
non era delle linee, del vbblack o del timer ma proviene dal file stesso,
strano ma vero, dal SALVATAGGIO del testo stesso e non dalla funzione sopra
nel LOAD. Mi sono accorto facendo un copia-incolla nel file di testo.txt con
uno nuovo e poi salvandolo e ricaricandolo.
In pratica veniva salvato qualche cosa che NON SI VEDE... ho analizzato il
testo in modo bruto e NON c'era nulla... editato con notepad e con EDIT da
"dos"... niente... eppure... la gabola sembra rpvenga dal test.txt
salvato...
Non so cosa restava dentro e caricandolo in quel modo anche con RTFtext,
viene forzata e/o cancellata una modifica da circa metà via...
Dato che prima erano txtbox le salvavo col classico sistema, ora salvo il
testo con il SAVEFILE delle RTB e con  RTFtext: ho provato alcune volte
sembra che stavolta funziona...
Mi sarebbe piaciuto capire cosa fosse...GRAZIE COMUNQUE.
Interessante sapere che uno "strano" testo, seppur selezionato, non sempre
può essere trasformato!
GRAZIE
ciao


 End Sub
Io, in tutta sincerità, non capisco le ultime 3 istruzioni. Le toglierei
proprio.

 ha scritto nel messaggio
news:c17crb$1el1sq$
1...@ID-174464.news.uni-berlin.de

Credo che le usi per ripristinare le impostazioni originali...



Beh non voglio prendermi meriti che non sono miei.
La funzione l'ho presa molto tempo fa da un codice che ho trovato in rete.
Cmq per quanto riguarda le ore piccine... beh, mi piace programmare di
notte... ma dopo le 2 a nanna :-)


 bye

 A cosa pensi che venga applicato il vbBlack? ;-)
azz! errore mio!
Mi cospargo il capo di cenere e faccio pubblica ammenda... :-)
