VB.NET讀取文本區域中的當前行嗎？

Question

我有一個文本區域和一個函數來做語法高亮。現在它讀取整個RichTextBox。我將如何獲得包含當前行的字符串變量？以下是我目前擁有的代碼。

Private Sub HighLight() 
    Dim rm As System.Text.RegularExpressions.MatchCollection 
    Dim m As System.Text.RegularExpressions.Match 
    Dim x As Integer ''lets remember where the text courser was before we mess with it 

    For Each pass In FrmColors.lb1.Items 
     x = rtbMain.SelectionStart 
     rm = System.Text.RegularExpressions.Regex.Matches(LCase(rtbMain.Text), LCase(pass)) 
     For Each m In rm 
      rtbMain.Select(m.Index, m.Length) 
      rtbMain.SelectionColor = Color.Blue 
     Next 
     rtbMain.Select(x, 0) 
     rtbMain.SelectionColor = Color.Black 
    Next 
End Sub 

Answer 1

沒有嘗試過但：

rtbMain.Lines(lineNumber) 

如果不分配Lines屬性到一個數組並訪問數組元素。

Answer 2

我想你想

rtbMain.Lines(rtbMain.GetLineFromCharIndex(rtbMain.SelectionStart))