Rich TextBox

[romanich]

Как можно поменять цвет каким-либо определённым символам(иле строке) в Rich TextBox'е или изменить размер, bold, курсив, подчёркивания? (У меня нет MSDN )

[romanich]

Или может кто ссылку даст на ресурс какой по элементам управления типа Rich TextBox, ListView, TreeView etc...

[Antonariy]

Ну Object Browser же у тебя есть...
SelStart, SelLength, SelBold, SelItalic и т. д.

[Jenizix]

Да, только сначала нужно выделить нужный текст (selstart, sellenght) а потом уже selcolor и т.п.

[GSerg]

(У меня нет MSDN )

www.msdn.microsoft.com

[Mactish]

И сохранить форматированный текст можно в любом формате, в том числе придуманном самим?

[Ennor]

Конкретно из RichTextBox текст можно сохранить в одном из двух форматов - голый текст (.txt) и "богато форматированный" текст (.rtf). Определяется вторым аргументом метода .SaveFile(), кажется. Ну а если тебе надо в собсный формат потом перегнать, то - RTF полностью документирован и довольно прост, пишешь свой парсер-конвертер и вся любовь.

[Ruslan Demidow]

На форму кладёшь RichTextBox (в коде RTB) и кнопку (в коде Command1).
Далее, в модуле формы прописываешь следующий текст

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


Option Explicit

Private Sub Command1_Click()
    Dim arrTxt() As String
    Dim curPos As Long
    arrTxt() = Split(RTB.Text, vbCrLf)
    With RTB
    'pаскpасим пеpвую стpоку
        curPos = 2
        .SelStart = 0
        .SelLength = Len(arrTxt(0))
        .SelColor = vbRed
        .SelBold = True
        curPos = curPos + Len(arrTxt(0))
    'pаскpасим втоpую стpоку
        .SelStart = curPos
        .SelLength = Len(arrTxt(1))
        .SelColor = vbBlue
        .SelItalic = True
        curPos = curPos + Len(arrTxt(1))
    'тpетью пpопускаем
        .SelStart = curPos
        .SelLength = Len(arrTxt(2))
        .SelColor = vbBlack
        curPos = curPos + Len(arrTxt(2))
    End With
End Sub

Private Sub Form_Load()
    Dim sText As String
    sText = "Пеpвая стpока" & vbCrLf & "Втоpая стpока" & vbCrLf & "Тpетья стpока"
    RTB.Text = sText
End Sub


[romanich]

Спасибо, люди