[VB6] Modifica della dimensione del testo in una RichTextBox

[Alexinfa]

Salve a tutti,
ho un secondo problema adoperando una RichTextBox con il Visual Basic 6.

Ho implementato una funzione che cambia la dimensione del testo in una RichTextBox usufruendo della funzione :

L_Chat.Font.Size = Grandezza

con Gramdezza ovviamente la dimensione del testo.

Il problema si presenta quando all'interno della RichTextBox vi si sono gia' aggiunte delle stringe (ossia la RichTextBox non e' vuota).

Avendo modificato il colore dello sfondo della RichTextBox in neroed impostato il colore del carattere in bianco, quando modifico la dimensione dei caratteri, tutto cio' che vi era gia' presente al suo interno sparisce, questo perche' il VB sembra che lo riscrivi in nero (ed ovviamente il nero su nero non si vede).

A questo punto la domanda e'..
è possibile modificare la dimensione del carattere in una RichTextBox senza che il VB6 cambi automaticamente in nero il testo gia' precendentemente introdotto ?

Grazie in anticipo per la risposta

[Boolean]

effettivamente quando cambi la grandezza del carattere del controllo viene resettato il colore, io sono riuscito però a cambiare il carattere del testo senza questo problema, utilizzando quete righe:

s = RTB.SelStart
RTB.SelStart = 0
RTB.SelLength = Len(RTB.Text)
RTB.SelFontSize = 20
RTB.SelStart = s

RTB è il RichTextBox

_ciauz: Boolean

[LMondi]

Io uso la seguente routine (naturalmente si deve inserire nella Frm una CommonDialog e deve essere selezionata la frase da cambiare):

'Modifica le fonts e cambia colore al testo Selezionato - Comando di menù:
Public Sub ModFonts()

    Dim strFrmAttFont As String
    Dim y As Long
    strFrmAttFont = FrmMAIN.ActiveForm.Name
    
    Select Case strFrmAttFont
        Case "FrmAA"
            With FrmAA.CommonDialogAA
                .CancelError = True
            On Error GoTo ErrHandler
                .Flags = cdlCFForceFontExist Or cdlCFEffects Or cdlCFBoth Or cdlCFScalableOnly Or cdlCFLimitSize
                .min = 8
                .max = 24
                .FontName = "Microsoft Sans Serif"
                .FontSize = 8
                .ShowFont
            End With
ErrHandler:
            ' é stato scelto Annulla:
            If Err.Number = 32755 Then
                Exit Sub
            End If
            
            ' Imposta il cambiamento del carattere e del colore:
            With FrmAA.RTxtBox2
               .SelColor = FrmAA.CommonDialogAA.Color
               .SelFontName = FrmAA.CommonDialogAA.FontName
               .SelFontSize = FrmAA.CommonDialogAA.FontSize
               .SelBold = FrmAA.CommonDialogAA.FontBold
               .SelItalic = FrmAA.CommonDialogAA.FontItalic
               .SelStrikeThru = FrmAA.CommonDialogAA.FontStrikethru
               .SelUnderline = FrmAA.CommonDialogAA.FontUnderline
            End With

La routine è ideata per la presenza di più Frm contenute in una FrmMain.

[Alexinfa]

Grazie infinite per entrambi le risposte anche se in verita' la prima è quella che a me e' utile dato che devo cambiare la grandezza del testo di tutto cio' che e' presente nella richtextbox e non solo una stringa selezionata. Cmq la seconda risposta me la salvo in un TXT; mi potra' tornare sempre utile un giorno.

Grazie ancora a tutti quanti