Newsgroup: it.comp.lang.visual-basic
Titolo: Formattazione casella RTF

Buongiorno a tutti,
qualcuno saprebbe aiutarmi a risolvere un piccolo problema grafico?
Carico dei dati da un database access in Vb6 in una casella di testo rtf.
Durante il caricamento, vorrei che il testo venisse formattato secondo 
l'importanza che gli attribuisco,
ad esempio
TxtRTF.SelBold = TRUE
TxtRTF.text = Rs!DataInvio
TxtRTF.SelBold = False
TxtRTF.text = TxtRTF.Text & " " & Rs!Destinatario
in maniera da avere il grassetto sulla data di invio e il destinatario, di 
fianco, in corsivo normale.
Non riesco in alcun modo ad ottenere questo risultato, in quanto se applico 
questo criterio
o che il bold viene applicato a tutto il contenuto, o a nessuna parte del 
testo nella casella.
E cos�, ovviamente anche il colore.
C'� qualche metodo?
Grazie come sempre a tutti
Sossio 

 destinatario, di fianco, in corsivo normale.
TxtRtf.Text = Rs!DataInvio & " " & Rs!Destinatario    ' Popola l'RTF
TxtRtf.SelStart = 0                                                ' 
Seleziona dall'inizio fino
TxtRtf.SelLength = Len(Rs!DataInvio)                      ' alla prima voce
TxtRtf.SelBold = True                                           ' Imposta il 
grassetto
TxtRtf.SelStart = Len(TxtRtf.Text)                          'toglie la 
selezione (cursore in fondo) 

> destinatario, di fianco, in corsivo normale.
maledetto outlook !


Ah ah ah ...� vero...Maledetto Outlook...e maledetto msn...
Avevo comunque pensato a questa soluzione, quella cio� di attivare la 
propriet� selstart e sellenght
ma non capisco perch� non funzionava e pensavo non fosse possibile farlo.
Avr� sbagliato qualcosa. Riprovo con il vostro codice
e vi ringrazio di cuore.
Buon lavoro a tutti
Sossio
"Franz_aRTiglio" <fran...@N0SPAMtin.it> ha scritto nel messaggio 
news:h87ssd$fti$1...@aioe.org...


No...purtroppo devo dirti che avevo impostato il medesimo codice...
e non funzia...
"Franz_aRTiglio" <fran...@N0SPAMtin.it> ha scritto nel messaggio 
news:h87ssd$fti$1...@aioe.org...


 e non funzia...
apri un nuovo progetto, mettici un commandbutton e un richtextbox
copia il seguente codice in command1
Private Sub Command1_Click()
RichTextBox1.Text = ""
Dim AAA As String
Dim BBB As String
AAA = "ciao"
BBB = "belli"
RichTextBox1.Text = AAA & " " & BBB
    ' Popola l'RTF
 RichTextBox1.SelStart = 0
   ' Seleziona dall'inizio fino
RichTextBox1.SelLength = Len(AAA)
   ' alla prima voce
 RichTextBox1.SelBold = True
   ' Imposta il grassetto
RichTextBox1.SelStart = Len(RichTextBox1.Text)
   'toglie la selezione (cursore in fondo)
 
 
End Sub
sono anni che non maneggio database, ma 
se Rs!DataInvio Rs!Destinatario sono 
query/funzione/salamadonna, prova a modificare in 
Dim pippo as string,pluto as string
pippo = CStr(Rs!DataInvio)
pluto = CStr(Rs!Destinatario)
TxtRTF.text = pippo & " " & pluto

Franz...porco cane, mi hai fatto ridere!!
Intanto grazie, poi ti dico che sul progetto generico ho fatto praticamente 
qualcosa di simile al tuo suggerimento.
Sul generico funziona, perch� prendo in esame una stringa sola, come nel tuo 
caso, nel caso invece
del loop continuo fino all' .eof del Rst  qualcosa va storto.
Sei stato comunque gentile e prezioso, adesso provo a sbatterci 'a capa!!
Sossio
"Franz_aRTiglio" <fran...@N0SPAMtin.it> ha scritto nel messaggio 
news:h88b7f$28e$1...@aioe.org...


 TxtRTF.text = txtrtf.text & pippo & " " & pluto
bla bla bla per fare il bold.....
.MOVENEXT
Ok...quando ricomincia dal secondo record...si perde tutto.
Spero di essermi spiegato (e di aver smesso di rompere maroni...)
"Franz_aRTiglio" <fran...@N0SPAMtin.it> ha scritto nel messaggio 
news:h88b7f$28e$1...@aioe.org...


> pluto = CStr(Rs!Destinatario)
� meglio non usare la propriet� Text per accodare il testo al RTB, ma 
SelText.
In pratica diventerebbe:
txtRTF.SelBold = ... ' Il grassetto lo setta PRIMA di accodare il nuovo 
testo
txtRTF.SelText = pippo & " " & Pluto    ' Accoda il testo
txtRTF.SelStart = Len(txtRTF.Text)    ' Sposta il cursore in fondo
Bye
Raf