Выделение слов в RichTextBox

[Don Leno]

Написал небольшой проект в котором слова должны выделятся. Проблема в том, что выделение слов происходит неправильно. Не могу найти ошибку!
Ниже опишу, как все происходит:
Используется РичТекстБокс, на котором перерисовывается фоновое изображение и накладывается рисунок позади выделяемых слов (процедура Selector), все происходит в цикле Do...Loop в Sub_Main.
Длина слов извлекается из объекта Label (Visible=False, Autosize=True)
Но вот проблема рисунок выделения слова накладывается неправильно(см скрин ниже)

[Mikle]

Длина слов извлекается из объекта Label (Visible=False, Autosize=True)

Для этого у формы есть функция TextWidth().
Проблема, похоже, в том, что размер текста не всегда равен сумме размеров его фрагментов при использовании не моноширинного шрифта, я заменил Font на Courier New - и всё заработало корректно.

[Don Leno]

Mikle, так хотелось бы сделать чтобы работало с разными шрифтами. За TextWidth спасибо не знал.
P.S.
Мне иногда кажется легче написать свое текстовое поле для своих нужд(((

[Don Leno]

При нажатии пробела появляется артефакт - в пробеле подкрашивается нижняя его часть зеленым цветом выделения? Не могу понять почему?

[Mikle]

хотелось бы сделать чтобы работало с разными шрифтами

Проверяй длину строки всегда от начала до нужного слова, а не длину слов по отдельности.

[alibek]

А еще советую выбрать в качестве шрифта, например, Times New Roman, 14pt, Italic.
Будет много сюрпризов.

[Don Leno]

alibek, я обязательно попробую)))
Mikle, спс за совет буду пробовать)))

[Don Leno]

Столкнулся с еще одной проблемой, мне теперь нужно скопировать все содержимое РичТекстБокса (имеется ввиду графику) без зеленого цвета выделения в контекст. Пробую через TransparentBlt - ничего не получается. Просьба помочь с этим вопросом.

[The trick]

Написал небольшой проект в котором слова должны выделятся. Проблема в том, что выделение слов происходит неправильно. Не могу найти ошибку!
Ниже опишу, как все происходит:
Используется РичТекстБокс, на котором перерисовывается фоновое изображение и накладывается рисунок позади выделяемых слов (процедура Selector), все происходит в цикле Do...Loop в Sub_Main.
Длина слов извлекается из объекта Label (Visible=False, Autosize=True)
Но вот проблема рисунок выделения слова накладывается неправильно(см скрин ниже)

Не понял что требуется, но предложу почему бы не выделять слова используя EM_SETCHARFORMAT?

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const EM_SETCHARFORMAT = (&H400 + 68)
Private Const EM_SETSEL = &HB1

Private Const LF_FACESIZE = 32
Private Const CFM_COLOR = &H40000000
Private Const CFM_BACKCOLOR = &H4000000

Private Type CHARFORMAT2
    cbSize As Integer
    wPad1 As Integer
    dwMask As Long
    dwEffects As Long
    yHeight As Long
    yOffset As Long
    crTextColor As Long
    bCharSet As Byte
    bPitchAndFamily As Byte
    szFaceName(0 To LF_FACESIZE - 1) As Byte
    wPad2 As Integer
   
    wWeight As Integer
    sSpacing As Integer
    crBackColor As Long
    lLCID As Long '
    dwReserved As Long
    sStyle As Integer
    wKerning As Integer
    bUnderlineType As Byte
    bAnimation As Byte
    bRevAuthor As Byte
    bReserved1 As Byte
End Type

Private Sub SetColor(cStart As Integer, cEnd As Integer, Color As Long, Optional BackColor As Long = vbWhite)
    Dim CF2 As CHARFORMAT2
   
    CF2.dwMask = CFM_COLOR Or CFM_BACKCOLOR
    CF2.crTextColor = Color
    CF2.crBackColor = BackColor
    CF2.cbSize = Len(CF2)
   
    SendMessage rtbText.hwnd, EM_SETSEL, cStart, cEnd
    SendMessage rtbText.hwnd, EM_SETCHARFORMAT, 1, VarPtr(CF2)
    SendMessage rtbText.hwnd, EM_SETSEL, cStart, cStart
End Sub
Private Sub Form_Load()
    rtbText.Text = "Допустим, у меня есть строковая переменная, которая содержит текст,как можно выделить красным цветом содержание этой переменной?"

    SetColor 22, 42, vbGreen, vbBlue
    SetColor 61, 66, vbYellow, vbMagenta
    SetColor 86, 93, vbRed
End Sub

preview.png (7.65 Кб) Просмотров: 3617

[Don Leno]

Trick, ты как всегда прав)))
Просто я для примера выложил в определенном цвете, на самом деле собираюсь реализовывать выделение небольшими рисунками (текстурками), аля Ejay программы))) Но за пример спс, в будущем пригодится!!!