[VB6] Inserire il grassetto in una RichTextBox

[alesssia]

Io vorrei grassettare più occorrenze della stessa stringa che compaiono all'interno di una RichTextBox (txtECCliente).

Ho provato con il seguente codice:


'txtProva è una RichTextBox d'appoggio nascosta

txtProva.Text = ""
n = Len(txtECCliente.Text)
i = 0

While (i < n)
txtECCliente.SelStart = InStr(txtECCliente.Text, "Totale:") - 1
txtECCliente.SelLength = 91
txtECCliente.SelBold = True
'metto la sottostringa già esaminata in txtProva
txtProva.Text = txtProva.Text & Left(txtECCliente.Text, txtECCliente.SelStart + 91)
'lascio in txtECCliente solo la sottostringa ancora da esaminare
txtECCliente.Text = Right(txtECCliente.Text, n - txtECCliente.SelStart - 91)
n = Len(txtECCliente.Text)
i = 0
Wend

txtECCliente.Text = txtProva.Text


Però nel passaggio da una RTB all'altra si perde la formattazione (questo penso avvenga perché la selezione viene fatta su quella RTB specifica)

Qualcuno ha una soluzione?

[alesssia]

Ho trovato un'errore nel codice postato in precedenza, ma il vero questito è:

E' possibile avere piu' sottostringhe selezionate contemporaneamente?
Se no: qualcuno ha idea di come fare a mettere in grasetto più sottostringhe?

[Corwin]

Originariamente inviato da alesssia
E' possibile avere piu' sottostringhe selezionate contemporaneamente?

Non credo.

Originariamente inviato da alesssia
Se no: qualcuno ha idea di come fare a mettere in grasetto più sottostringhe?

Si, però ricordati di non salvare il contenuto del richtextbox altrimenti viene salvato grassettato...

[alesssia]

>> Se no: qualcuno ha idea di come fare a mettere in grasetto più
>> sottostringhe?

> Si, però [cut]

Si come?!?

[Corwin]

Più o meno così:


Stringa_da_cercare = "Totale:"
Lunghezza_Stringa = Len(Stringa_da_cercare)
i = 1
Do While (True)
If InStr(i, txtECCliente.Text, Stringa_da_cercare) > 0 Then
txtECCliente.SelStart = InStr(i, txtECCliente.Text, Stringa_da_cercare) - 1
txtECCliente.SelLength = Lunghezza_Stringa
txtECCliente.SelBold = True
i = txtECCliente.SelStart + txtECCliente.SelLength
Else
Exit Do
End If
Loop
txtECCliente.SelStart = 0

[ladyBlu]

puoi anche guardare qua: http://forum.html.it/forum/showthrea...ht=richtextbox (dalla ricerca del forum)

[alesssia]

> puoi anche guardare qua:
> http://forum.html.it/forum/showthre...ght=richtextbox

Ops... non l'avevo proprio visto! : )

Adesso provo e vi dico.
Grazie a tutti!