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//////////////////////////// 闵峰

评论 (0) All

登陆 还没注册？