Rich Edit Formatter Class

Здесь можно найти готовые «кирпичики» — части кода, пригодные для построения более крупных проектов, а также решения различных типовых и не очень задач на VB.

Модератор: Brickgroup

hCORe
VB - Экстремал
VB - Экстремал
Аватара пользователя
 
Сообщения: 2332
Зарегистрирован: 22.02.2003 (Сб) 15:21
Откуда: parent directory

Rich Edit Formatter Class

Сообщение hCORe » 09.02.2005 (Ср) 22:04

Загрузка:
http://bbs.vbstreets.ru/download.php?id=1587

Пример использования (rtfData - объект RichTextBox):
Код: Выделить всё
On Error Resume Next
    Dim aaa As clsFormatter
    Set aaa = New clsFormatter
    rtfData.Text = "RichTextBox"
    aaa.hwnd = Me.rtfData.hwnd
    aaa.WholeText = False
    aaa.SelStart = 4
    aaa.SelLength = 4
    aaa.FontBold = True
    aaa.FontItalic = True
    aaa.FontUnderline = True
    aaa.FontName = "Arial"
    aaa.FontSize = 10
    aaa.Color = vbRed
    aaa.BackColor = vbBlue
    aaa.Execute
    aaa.BackColor = vbYellow
    aaa.Color = vbBlack
    aaa.SelStart = 8
    aaa.SelLength = 4
    aaa.Execute
    rtfData.SetFocus
Моду создают модоки, а распространяют модозвоны.

Вернуться в Кирпичный завод

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

    TopList