Question

在我用户界面中有一个只读的 RichTextBox 。我想把它做成这样, 当我点击鼠标的一行文字时, 它会选择或突出显示整个行。只有一条被单击的行。

你是怎么做到的? 怎么办到的?

Answer 1

RichTextBox 拥有你所需要的所有方法, 您只需要多个方法。首先, 您需要将鼠标位置映射为字符索引 :

Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    Dim box = DirectCast(sender, RichTextBox)
    Dim index = box.GetCharIndexFromPosition(e.Location)

然后您需要将字符索引映射为行 :

    Dim line = box.GetLineFromCharIndex(index)

然后,你需要找出线的起点:

    Dim lineStart = box.GetFirstCharIndexFromLine(line)

然后,你需要找出它的结束之处, 也就是下一行的起始点减去一行:

    Dim lineEnd = box.GetFirstCharIndexFromLine(line + 1) - 1

然后,你必须作出选择:

    box.SelectionStart = lineStart
    box.SelectionLength = lineEnd - lineStart

摘要:

Private Sub RichTextBox1_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles RichTextBox1.MouseDown
    Dim box = DirectCast(sender, RichTextBox)
    Dim index = box.GetCharIndexFromPosition(e.Location)
    Dim line = box.GetLineFromCharIndex(index)
    Dim lineStart = box.GetFirstCharIndexFromLine(line)
    Dim lineEnd = box.GetFirstCharIndexFromLine(line + 1) - 1
    box.SelectionStart = lineStart
    box.SelectionLength = lineEnd - lineStart
End Sub

Answer 2

只要在单击事件处理器时使用以下代码即可

SendKeys.Send("{HOME}+{END}")

友情链接