对RichTextBox没什么经验,对Rtf也不熟悉,勉强实现了你要的功能,可能方法不是太好 Dim l As Integer = 1 '要操作的行索引,从0开始 Dim index = RichTextBox1.GetFirstCharIndexFromLine(l) '获取行的第一个字符的索引 RichTextBox1.Select(index, RichTextBox1.Lines(l).Length) '选中该行