获得光标在多行textbox中的行与列的函数

答案：
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

上一个：在textbox里放按钮并控制输入字符不能覆盖住按钮(包括设计阶段)
下一个：使用非托管代码直接修改字符串