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

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