RichTextBox Tricks and Tips

[quijotemx]

I don't get the following code perform correctly:

Private Sub text2ADDText(xText As RichTextBox, fontN As String, fontS As Integer, fontI As Boolean, fontU As Boolean, fontB As Boolean, txt As String)
    Dim text2Len As Long
        
    text2Len = Len(xText.Text)
    xText.Text = xText.Text & vbCr & vbLf & txt
    xText.SelStart = text2Len + 2
    xText.SelLength = Len(txt)
    xText.SelBold = fontB
    xText.SelUnderline = fontU
    xText.SelFontName = fontN
    xText.SelFontSize = fontS
    
End Sub

It only produces the desired result in the last line added to the control invoking the sub.

Could you help me ...


El quijoteMx

[Edgemeal]

I don't get the following code perform correctly:

Is this any better?

Private Sub AppendText(RTB As RichTextBox, _
                fontN As String, _
                fontS As Integer, _
                fontI As Boolean, _
                fontU As Boolean, _
                fontB As Boolean, _
                NewText As String, _
                Optional TextColor As Long = vbBlack)

    With RTB
        .SelStart = Len(.Text)
        .SelColor = TextColor
        .SelBold = fontB
        .SelItalic = fontI
        .SelUnderline = fontU
        .SelFontName = fontN
        .SelFontSize = fontS
        .SelText = vbCrLf & NewText
    End With

End Sub