Si Può Cambiare La Proprietà Forecolor - ad una RichTextBox in VB6 ??

[Brothers]

qualcuno sa se si può cambiare la proprietà ForeColor ad una RichTextBox in VB6 ????

Grazie

[Brothers]

Chiedo venia a tutti per la castronata che ho scritto.

Avevo chiesto anche di cancellare questo post

ma forse è più utile metterci dentro la soluzione

affinche qualcuno possa usarla e non si trovi nella mia situazione

E spari altre strullate.

Oltre al codice per cambiare colore al testo

Aggiungo anche il codice per cambiare il carattere ed il colore dello sfondo.

Ciao a tutti

PS.

Comunque se qualche Moderatore volesse cambiargli almeno il titolo

a questa discussione sarebbe forse meglio.

Un titolo tipo

"Come cambiare testo, colore testo, colore sfondo ad una RichTexBox"

oppure

"Come cambiare i connotati ad una RichTexBox"

oppure altro

(fate vobis).

----------------------------------------------------------

Legenda:

ActiveForm = il form attivo in quel momento dentro al form MDI padre

rtfText = Controllo RichTexBox inserito nel form Figlio

CommonDialog1 = Controllo CommonDialog inserito nel form MDI padre

mnuCambiaColoreCarattere = Pulsante\menu del form MDI padre

mnuCambiaCarattere = Pulsante\menu del form MDI padre

mnuCambiaColoreSfondo = Pulsante\menu del form MDI padre

----------------------------------------------------------

Codice da scrivere nel form MDI padre

----------------------------------------------------------

Per cambiare colore al testo in una RichTexBox

contenuta in un Form MDIChild a sua volta contenuto in un Form MDI padre:

----------------------------------------------------------

Private Sub mnuCambiaColoreCarattere_Click()

On Error Resume Next

If ActiveForm.rtfText Then

CommonDialog1.ShowColor

ActiveForm.rtfText.SelColor = CommonDialog1.Color

End If

End Sub

----------------------------------------------------------

Per cambiare carattere al testo

----------------------------------------------------------

Private Sub mnuCambiaCarattere_Click()

On Error Resume Next

If ActiveForm.rtfText Then

' Imposta Annulla su True.

CommonDialog1.CancelError = True

On Error GoTo ErrHandler

' Imposta la proprietà Flags.

CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects

' Visualizza la finestra di dialogo Carattere.

CommonDialog1.ShowFont

' Imposta le proprietà del testo in base

' alle selezioni dell'utente.

ActiveForm.rtfText.Font.Name = CommonDialog1.FontName

ActiveForm.rtfText.Font.Size = CommonDialog1.FontSize

ActiveForm.rtfText.Font.Bold = CommonDialog1.FontBold

ActiveForm.rtfText.Font.Italic = CommonDialog1.FontItalic

ActiveForm.rtfText.Font.Underline = CommonDialog1.FontUnderline

End If

Exit Sub

ErrHandler:

' L'utente ha scelto il pulsante Annulla.

Exit Sub

End Sub

---------------------------------------------------------

Per cambiare colore dello sfondo

--------------------------------------------------------

Private Sub mnuCambiaColoreSfondo_Click()

On Error Resume Next

If ActiveForm.rtfText Then

' Imposta Annulla su True.

CommonDialog1.CancelError = True

On Error GoTo ErrHandler

' Imposta la proprietà Flags.

CommonDialog1.Flags = cdlCCRGBInit Or cdlCFEffects

' Visualizza la finestra di dialogo Carattere.

CommonDialog1.ShowColor

' Imposta le proprietà del testo in base

' alle selezioni dell'utente.

ActiveForm.rtfText.BackColor = CommonDialog1.Color

End If

Exit Sub

ErrHandler:

' L'utente ha scelto il pulsante Annulla.

Exit Sub

End Sub

---------------------------------

Modificato: 9 ottobre 2005 da Brothers