vb.net - vb.net获取在richtextbox中查找单词的行号

Question

有什么方法可以获取richtextbox中突出显示的单词的行号这里是richtextbox中突出显示文本的代码

例如

  i am  *doing code for *practice 
  this is very hard *language 
  its very *good day

带有 (*) 标记的单词表示突出显示的单词

我想出去

行号 1：做线号 1：练习线号。2：语言行号 3：好

这是我在richtextbox中突出显示单词的代码

Dim len As Integer = txtMbox.TextLength
    For Each word As String In MisSpelledList

        Dim lastindex = txtMbox.Text.LastIndexOf(word)
        Dim index As Integer = 0

        While index < lastindex

            txtMbox.Find(word, index, len, RichTextBoxFinds.None)

            txtMbox.SelectionBackColor = Color.Red


            index = txtMbox.Text.IndexOf(word, index) + 1


        End While