求高手

Question

Private   Sub   Command1_Click() 
        Dim   pos   As   Integer 
        pos   =   Len(Me.RichTextBox1.Text) 
        Me.RichTextBox1.Text   =   Me.RichTextBox1.Text   &   vbCrLf   &   "aaa " 
        Me.RichTextBox1.SelStart   =   pos 
        Me.RichTextBox1.SelLength   =   Len(Me.RichTextBox1.Text)   -   pos 
        Me.RichTextBox1.SelColor   =   RGB(255,   0,   0) 
End   Sub 我所希望的就是文本框每增添一次內容時﹐給新的內容加上顏色﹐同時原來內容的顏色不變。但是上面代碼運行后每次原有文字字體顏色都被清掉。

Answer 1

Option Explicit
    Dim pos As IntegerPrivate Sub Command1_Click()
    pos = Len(Me.RichTextBox1.Text)
    Me.RichTextBox1.Text = Me.RichTextBox1.Text & vbCrLf & "aaa "
    Me.RichTextBox1.SelStart = pos
    Me.RichTextBox1.SelLength = Len(Me.RichTextBox1.Text) - pos
    Me.RichTextBox1.SelColor = RGB(255, 0, 0)
End SubPrivate Sub Form_Load()
    RichTextBox1.Text = ""
End Sub