Rich Text Box

[v-adix]

можно ли изменить цвет текста в Rich Text Box ?

[hCORe]

Используй свойство SelColor. Если хочешь изменить цвет всего текста, выделяй его и устанавливай цвет через то же свойство:

Код: Выделить всё

'выделить весь редактируемый текст
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbRed 'установить красный цвет

[v-adix]

тогда надо ставить этот код в событие Change чтобы когда я печатал цвет всегда был красный например. я есть что-либо типа ForeColor ?

[SSecurity]

Мне кажется надо всего раз это сделать .... при загрузке формы, поскольку "маркирование цветом" переносится как и в ворде ...
если ты конесно туда ничего вставлять не будешь а будешь тока набирать ...

а если нужно всегда и всё - тогда тот вариант в Change поставь

[hCORe]

В Change надо ставить другой код:

Код: Выделить всё

Private Sub RichTextBox1_Change()
On Error Resume Next
    RichTextBox1.SelStart=RichTextBox1.SelStart-1
    RichTextBox1.SelLength=1
    RichTextBox1.SelColor = vbRed
    RichTextBox1.SelLength=0
    RichTextBox1.SelStart=RichTextBox1.SelStart+1
End Sub

или инициализировать при загрузке с помощью старого куска кода и поставить такое в KeyDown:

Код: Выделить всё

Private Sub RichTextBox1_KeyDown(KeyCode as Integer, _
Shift as Integer)
On Error Resume Next
Dim kCode As Integer
    If Shift = 2 And KeyCode <> 90 And KeyCode <> 89 Then
    'событие RTB: Ctrl+C, Ctrl+V...
        kCode = KeyCode
        If Shift = 2 Then 'Ctrl
            If kCode = 67 Then 'копирование
                KeyCode = 0
                CopyText
            ElseIf kCode = 45 Then 'копирование
                KeyCode = 0
                CopyText
            ElseIf kCode = 88 Then 'вырезка
                KeyCode = 0
                CutText
            ElseIf kCode = 86 Then 'вставка
                KeyCode = 0
                PasteText
            ElseIf kCode = 65 Then 'выделить все
                KeyCode = 0
                SelectAll
            End If
        ElseIf Shift = 1 Then 'Shift
            If kCode = 45 Then 'вставка
                KeyCode = 0
                PasteText
            ElseIf kCode = 46 Then 'вырезка
                KeyCode = 0
                CutText
            ElseIf kCode = 36 Then 'выделить влево
                KeyCode = kCode
            ElseIf kCode = 35 Then 'выделить вправо
                KeyCode = kCode
            End If
        End If
    End If
End Sub

Private Sub CopyText()
On Error Resume Next
    Clipboard.SetText RichTextBox1.SelText, _
    vbCFText
End Sub

Private Sub CutText()
On Error Resume Next
    Clipboard.SetText RichTextBox1.SelText, _
    vbCFText
    RichTextBox1.SelText = ""
End If

Private Sub PasteText()
On Error Resume Next
    RichTextBox1.SelText = Clipboard.GetText (vbCFText)
End Sub

Private Sub SelectAll()
On Error Resume Next
    RichTextBox1.SelStart = 0
    RichTextBox1.SelLength = Len( _
    RichTextBox1.Text)
End Sub