VB,NET RichTextBox 计算光标所在行和列的方法

Private Sub RichTextBox1_Click(sender As Object, e As EventArgs) Handles RichTextBox1.Click

 

'计算光标所在的位置
Dim intSelstart As Integer
Dim intSelRow As Integer
Dim intSelColumn As Integer
Dim intPos As Integer

intSelstart = RichTextBox1.SelectionStart
intSelRow = RichTextBox1.GetLineFromCharIndex(intSelstart)
intSelColumn = intSelstart - RichTextBox1.GetFirstCharIndexFromLine(intSelRow)
intPos = intSelstart - intSelRow

Label1.Text = "光标位置 行号 : " & intSelRow + 1
Label1.Text = Label1.Text & ", 列号 : " & intSelColumn
Label1.Text = Label1.Text & ", 第 " & intPos & " 个字符处。"
End Sub