如何在 Richtextbox 后面画高亮

Question

使用此代码，它在文本上绘制突出显示，这会使文本以某种方式模糊？

Public Class HighlightableRTB
Inherits RichTextBox

Private LineHeight As Integer = 15

Public Sub New()
    HighlightColor = Color.Yellow
End Sub

<Category("Custom"), Description("Specifies the highlight color.")>
Public Property HighlightColor As Color

Protected Overrides Sub OnSelectionChanged(ByVal e As EventArgs)
    MyBase.OnSelectionChanged(e)
    Me.Invalidate()
End Sub

Private Const WM_PAINT As Integer = 15

Protected Overrides Sub WndProc(ByRef m As Message)
    If m.Msg = WM_PAINT Then
        Dim selectLength = Me.SelectionLength
        Dim selectStart = Me.SelectionStart
        Me.Invalidate()
        MyBase.WndProc(m)
        If selectLength > 0 Then Return

        Using g As Graphics = Graphics.FromHwnd(Me.Handle)
            Dim b As Brush = New SolidBrush(Color.FromArgb(50, HighlightColor))
            Dim line = Me.GetLineFromCharIndex(selectStart)
            Dim loc = Me.GetPositionFromCharIndex(Me.GetFirstCharIndexFromLine(line))
            g.FillRectangle(b, New Rectangle(loc, New Size(Me.Width, LineHeight)))
        End Using
    Else
        MyBase.WndProc(m)
    End If
End Sub
End Class

如何在richtextbox的文本后面绘制矩形高亮？

Answer 1

正如您已经猜到的那样，文本并不是真的“模糊”......它是画在它上面的黄色矩形使它看起来像这样。

这并不容易。事实上，我有一个解决方案，但这不是我推荐的……如果我还有什么要说的话。但我没有，所以这里有一种处理这个问题的方法：

您可以在文本上绘制文本...。它不会删除已经存在的文本......但会在其上绘制。如果你的坐标有点偏离，它看起来像废话，但如果你找到了正确的位置，它会像一个魅力一样工作。一个可怕的，骇人听闻的魅力：

Using g As Graphics = Graphics.FromHwnd(Me.Handle)
    Dim b As Brush = New SolidBrush(Color.FromArgb(50, HighlightColor))
    Dim line = Me.GetLineFromCharIndex(Me.SelectionStart)
    Dim loc = Me.GetPositionFromCharIndex(Me.GetFirstCharIndexFromLine(line))
    g.FillRectangle(b, New Rectangle(loc, New Size(Me.Width, LineHeight)))
    TextRenderer.DrawText(g, Me.Text, Font, New Point(-2, 1), ForeColor) ' this is the important line!
End Using

不过，这 100% 是一个 hack，我当然希望比我更有理智的人加入。我写的位置 (-2, 1) 应该可以解决问题，但如果不知何故，你可以通过将Color.FromArgb(50, HighlightColor) 替换为Color.FromArgb(255, HighlightColor) 来消除透明度以隐藏您的羞耻。它不会那么明显，因为只有当有人选择它时，文本才会显示这个肮脏的把戏（试试吧！）。

玩得开心！