Public Function checkrow() As String
Dim row As Integer = Me .TextBox1.SelectionStart
Dim i As Integer
Dim p As Integer
Dim count As Integer = 0
Dim count1 As Integer = 0
For i = 0 To Me .TextBox1.Lines.GetUpperBound(0)
count += Me .TextBox1.Lines(i).Length + 2 ' 一个回车相当于 2 个
If row <= count Then
If i = 0 Then
p = row
Else
p = row - count1
End If
Return " 行： " & CStr (i) & "/ 列： " & CStr (p)
End If
count1 += Me .TextBox1.Lines(i).Length + 2
Next
End Function
//////////////////////////// 闵峰