Как выбрать строку в RichTextBox щелчком мыши?

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}")