richtext光标定位,光标当前行的内容

Question

richtext控件里面有很多行，假设光标在任意位置，如何把光标定位到这一行的？
如何得到光标所在行的内容是什么?

Answer 1

Private Sub Command1_Click() '选定
RichTextBox1.SetFocus
SendKeys "{home}+{end}"
End SubPrivate Sub Command2_Click() '
Clipboard.Clear
RichTextBox1.SetFocus
SendKeys "^{c}"
MsgBox "你选定的行内容：" & vbCrLf & vbCrLf & Clipboard.GetText
End SubPrivate Sub Form_Load()
Dim x As String
x = String(100, "a")
x = Replace(x, "a", "richtext控件里面有很多行，假设光标在任意位置，如何把光标定位到这一行的？如何得到光标所在行的内容是什么?")
RichTextBox1.Text = x
Me.KeyPreview = True
End Sub

Answer 2

这样更简单一些：
Private Sub Command1_Click() '选定
RichTextBox1.SetFocus
SendKeys "{home}+{end}^c"
End SubPrivate Sub Command2_Click() '显示内容
MsgBox "你选定的行内容：" & vbCrLf & vbCrLf & Clipboard.GetText
End SubPrivate Sub Form_Load()
Dim x As String
x = String(100, "a")
x = Replace(x, "a", "richtext控件里面有很多行，假设光标在任意位置，如何把光标定位到这一行的？如何得到光标所在行的内容是什么?")
RichTextBox1.Text = x
Me.KeyPreview = True
End Sub