🚀 go-pugleaf

"Max" <info.tecnico@libero.it> ha scritto nel messaggio
news:3mG3d.13306$zF3.375036@twister2.libero.it...
> Saluti a tutto il gruppo
>
> Avrei un problema molto semplice ( cosi semmbra)
> Ho una TextBox che deve contenere uno storico di movimenti. recuperando i
> valori da una tabella ho 3 campi da gestire.
> Sono 1 data - 1 descrizione - 1 campo note lungo.
> Calcolando che di questi record ne devo visualizzare svariati avevo
pensato
> di poter colorare i singoli campi .
>
> Vale a dire che volevo mostrare la data in rosso - la descrizione in verde
e
> il campo note in nero .
> Come si fa ( se si pu� ) ad inserire testi nella stessa textbox con vari
> colori ???
>
> Grazie in anticipo.
>
> Max
>
>

Questa � la prova che ho creato con RichTextBox ma il risultato � valido
solo al primo record !!
Dal secondo in poi sballa tutto scrivendo in rosso tutto il testo tranne gli
ultimi due campi che per� sono sfalsati.

Qualcuno pu� aiutarmi ???

 While Not dataQry.Recordset.EOF

        testo = testo & CStr(dataQry.Recordset(0)) & " " &
dataQry.Recordset(1) & " " & dataQry.Recordset(2) & vbCrLf
        rt.Text = testo
        rt.SelStart = car
        car = car + Len(CStr(dataQry.Recordset(0))) + 1
        rt.SelLength = car
        rt.SelColor = RGB(255, 0, 0)
        rt.SelStart = car
        car = car + Len(dataQry.Recordset(1)) + 1
        rt.SelLength = car
        rt.SelColor = RGB(0, 255, 0)
        rt.SelStart = car
        car = car + Len(dataQry.Recordset(2))
        rt.SelLength = car
        rt.SelColor = RGB(0, 0, 255)
        dataQry.Recordset.MoveNext
    Wend
    txtStorico.Text = testo     ' Con questa riga il tutto funziona in una
textbox normale ma solo con un colore.

Grazie

Silverfox