如何通過點擊鼠標在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

只需使用下面的代碼在Click事件處理程序

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