将光标/插入符号发送到 RichTextBox 中的下一段

Question

我一直在尝试将 RichTextBox 中的插入符号移动到另一个段落，就像在键盘上按下 Ctrl+Down 箭头一样。我使用SendKeys.Send("^{DOWN}")，但它并不一致，有时它似乎按下了两次，即跳过一些行。但是当直接从键盘上按下它时，可以流畅地移动而不会跳跃。

如何使SendKeys 稳定，或者有其他方法吗？

Answer 1

你可以使用：

Dim nextParagraphPos = RichTextBox1.Text.IndexOf(vbLf, RichTextBox1.SelectionStart) + 1
If nextParagraphPos > 0 Then
    RichTextBox1.SelectionStart = nextParagraphPos
Else
    RichTextBox1.SelectionStart = RichTextBox1.TextLength
End If

这使用IndexOf() 来获取下一个换行符的位置，它揭示了下一段的位置。如果IndexOf()返回-1，我们将位置设置在字符串的末尾，以模拟Ctrl+↓的行为。

您也可以用这个较短的版本替换 If 语句：

RichTextBox1.SelectionStart = 
    If(nextParagraphPos > 0, nextParagraphPos, RichTextBox1.TextLength)